数据库编程

开发平台：

ASP/ASPX

PhotoList.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,User_Conn,Str_ME_ilogID,Rs_ME_ilog,Str_ME_ilog_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
MF_User_Conn
'User_Conn
Str_ME_ilogID=NoSqlHack(Trim(Request("ID")))
if not isnumeric(Str_ME_ilogID) then
	response.Write("错误的参数")
	response.End
end if
If Str_ME_ilogID="" 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
If G_VIRTUAL_ROOT_DIR<>"" Then
	If G_TEMPLETS_DIR<>"" Then
		Str_ME_ilog_Templet="/"&G_VIRTUAL_ROOT_DIR&"/"&G_TEMPLETS_DIR&"/ilog/PhotoList.htm"
	Else
		Str_ME_ilog_Templet="/"&G_VIRTUAL_ROOT_DIR&"/ilog/PhotoList.htm"
	End If
Else
	If G_TEMPLETS_DIR<>"" Then
		Str_ME_ilog_Templet="/"&G_TEMPLETS_DIR&"/ilog/PhotoList.htm"
	Else
		Str_ME_ilog_Templet="/ilog/PhotoList.htm"
	End If
End If
Response.Write Get_Dynamic_Refresh_Content(Str_ME_ilog_Templet,Str_ME_ilogID,"ME",0,"photoclass")
%>

						