数据库编程

开发平台：

ASP/ASPX

HistoryNews.asp：源码内容

							<% Option Explicit %>
<!--#include file="FS_Inc/Const.asp" -->
<!--#include file="FS_Inc/Function.asp" -->
<!--#include file="FS_InterFace/MF_Function.asp" -->
<!--#include file="FS_InterFace/MF_LoadLabel.asp" -->
<%
Dim conn,Str_NS_PublicID,Rs_NS_Public,Str_NS_Templet,StrSql
Dim f_Phy_Templet,f_FSO_OBJ,f_FILE_OBJ,f_FILE_STREAM_OBJ,f_File_Content,f_PAGES_DICT_OBJ
MF_Default_Conn
'User_Conn
Str_NS_PublicID=NoSqlHack(Trim(Request("ID")))
If Str_NS_PublicID="" Then
	Response.Write "<script language=""JavaScript"" type=""text/javascript"" src=""../FS_Inc/PublicJs.js""></script>"&vbcrlf
	Response.Write "<SCRIPT LANGUAGE=""JavaScript"">ShowErr(""错误：n参数错误"");</SCRIPT>"
End If
Str_NS_Templet="/HistoryNews.htm"
If G_VIRTUAL_ROOT_DIR<>"" Then
	If G_TEMPLETS_DIR<>"" Then
		Str_NS_Templet="/"&G_VIRTUAL_ROOT_DIR&"/"&G_TEMPLETS_DIR&Str_NS_Templet
	Else
		Str_NS_Templet="/"&G_VIRTUAL_ROOT_DIR&Str_NS_Templet
	End If
Else
	If G_TEMPLETS_DIR<>"" Then
		Str_NS_Templet="/"&G_TEMPLETS_DIR&Str_NS_Templet
	Else
		Str_NS_Templet=Str_NS_Templet
	End If
End If
Response.Write Get_Dynamic_Refresh_Content(Str_NS_Templet,Str_NS_PublicID,"NS",0,"news")
%>

						