reguestbook.asp

来自「一个有用的东西希望大家喜欢谢谢大家对本站的支持」· ASP 代码 · 共 59 行

ASP

59 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"--><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title><%=title1%>-版主回复</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
}
-->
</style></head>

<body onload="javascript:form1.tt.focus();">
<%if session("admin")="mfkiqpl" then
%>
<script>
function check(){
if(form1.tt.value==""){
alert("检查输入！");
form1.tt.focus();
return false;
}
}
</script>
<%dim action
action=request("action")
if action<>"ok" then
%>
<table width="400" border="0" cellpadding="0" cellspacing="1" bgcolor="<%=color1%>">
<form name="form1" method="post" action="?action=ok&id=<%=request("id")%>" onsubmit="return check();">
  <tr>
    <td height="170" bgcolor="<%=color3%>"><textarea name="tt" cols="53" rows="10" id="tt"></textarea></td>
  </tr>
  <tr>
    <td height="30" align="center" bgcolor="<%=color3%>"><input type="submit" name="Submit" value="回　复">　　　
      <input type="button" name="Submit2" value="取　消" onclick="javascript:window.close();"></td>
  </tr>
</form>
</table>
<%else
dim id,t1
t1=replace(request("tt"),"'","’")
id=trim(request("id"))
sql="update guestbook set re='"&t1&"' where id="&id
conn.execute (sql)
closeconn
response.Write("<script>window.opener.location.reload();</script>")
response.Write("<script>window.close();</script>")
end if
else
response.Write("<script>window.close();</script>")
end if
%>
</body>
</html>

reguestbook.asp - 源码说明

本页面展示了「一个有用的东西希望大家喜欢谢谢大家对本站的支持」中的 reguestbook.asp 源码文件，采用 ASP 编程语言编写，共 59 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与家相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?