reok.asp

来自「一套比较完整的内部技术支持全部源代码,请大家共同分享」· ASP 代码 · 共 35 行

<!--#include file="Connections/lyb.asp" -->
<%if session("loseboy")<>"loseboy" then
	response.Redirect("index.asp")
	response.end
end if

Dim rs__MMColParam
rs__MMColParam = "1"
if (Request.Form("id") <> "") then rs__MMColParam = Request.Form("id")
%>
<%
set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_lyb_STRING
rs.Source = "SELECT * FROM lyb WHERE ID = " + Replace(rs__MMColParam, "'", "''") + ""
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rs.Open()
rs("recon")=server.htmlencode(request.form("recon"))
rs.update
rs.close()
%>
<script language=javascript>
alert("回复成功！");
opener.location.href="admin.asp?i="+randum(1000);
window.close();
function randum(z){
day=new Date();
h=day.getHours();
m=day.getMinutes();
s=day.getSeconds();
return (((h+1)*(m+1)*s)%z)+1;
}
</script>