write.asp

来自「Flash卡通留言版」· ASP 代码 · 共 16 行

<!--#include file="conn.inc"-->
<%
pwdd="admin"
kok=request("pop")
pwd=request("pass")
if pwd<>pwdd then%>
<%Response.Write "pwd="&pwd&"kok="&pop%>
<%else 
     ' 写入答复
     cdf=trim(request("hhf"))
     cdf=replace(cdf,"'",chr(34)) 
     cdf=replace(cdf,chr(13)+chr(10),"<br>") 
     sql_update="update book set df='"+cdf+"' where code="+kok 
     Set RSp = Conn.Execute(SQL_update) 
end if
%>