savelog.asp

前台完全分离了HTML与ASP

<%
'***********************************************
'* SAVE LOG FUNCTION
'* 你可以对以下内容进行任何修改，但请保留版权，谢谢。
'* 零点设计在线  Power by marquee 2005年6月
'***********************************************
Function SaveLog(OsName,OsMessage,OsTime,OsWhere,OsIP,flag)
	IF flag = true Then
		OsWhere = "<font color=green>"&OsWhere&"</font>"
	Else
		OsWhere = "<font color=red>"&OsWhere&"</font>"
	End IF
	conn.execute("delete * from ZD_AdminLog where time<now()-2")
	set logRs = Server.CreateObject("Adodb.Recordset")
	sql = "select * from ZD_AdminLog"
	logRs.open sql,conn,1,3
	logRs.addnew
	logRs("Name") = OsName
	logRs("osMessage") = OsMessage
	logRs("Time") = OsTime
	logRs("Where") = OsWhere
	logRs("IP") = OsIP
	logRs.update
	logRs.close
	set logRs = Nothing
End Function
%>