📄 adminsayto.asp

📁 不错的ASP整站源代码。在IIS环境下运行都没有问题
💻 ASP
字号:
<!--#include file="security.asp"-->
<%

word           =request("word")
user_id        =request("user_id")
if request("ToAll")="True" then
   ToAll=True
else
   ToAll=False
end if   

if word<>"" then

   Set conn = Server.CreateObject("ADODB.Connection")
   DBPath = Server.MapPath("../isi/xlist.asp")
   conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
   Set rs_word = Server.CreateObject("ADODB.Recordset")
   rs_word.open "Adminsay",conn,3,2
   rs_word.addnew
   rs_word("contents")=word
   rs_word("PutTime")=Date
   rs_word("user_id")=user_id
   rs_word("ToAll")=ToAll
   rs_word.update
   rs_word.close
   set rs_word=nothing
   response.redirect "Saylist.asp"
   response.end
end if
%>
<html>
<head>
<link rel="stylesheet" href="../inc/style.css">
</head>
<body topMargin=2>
<script Language="JavaScript">
<!--

function submitonce(theform){
if (document.all||document.getElementById){
//screen thru every element in the form, and hunt down "submit" and "reset"
for (i=0;i<theform.length;i++){
var tempobj=theform.elements[i]
if(tempobj.type.toLowerCase()=="submit"||tempobj.type.toLowerCase()=="reset")
tempobj.disabled=true}
}
}

function CheckAll()  
{
	submitonce(form)
}  
-->
</script>

<br><br>
<form name="form" onSubmit="return(CheckAll());">
<div align="center">

          <table border="0" cellspacing="0" height="111">
            <tr> 
              <td height="22"> 
                <p><b><font color="#FF0000"><img src="img/edit.gif" width="16" height="15" align="absmiddle"> 
                  写留言</font></b> 
              </td>
            </tr>
            <tr> 
              <td height="90"> 
                <table border="0" cellspacing="0" height="45" cellpadding="3">
                  <tr> 
                    <td height="25">对方ＩＤ:</td>
                    <td height="25"> 
                      <input type="text" name="user_id" size="20"  class="put">
                    </td>
                  </tr>
                  <tr> 
                    <td height="1" valign="top">留言:</td>
                    <td rowspan="2" height="21" valign="top"> 
                      <textarea rows="4" name="word" cols="44" class="put"></textarea>
                      <BR>
                      公告:<input type="radio" name="ToAll" value="True">
              是 
              <input type="radio" name="ToAll" value="False" checked>
              否 
                    </td>
                  </tr>
                  <tr> 
                    <td height="28"></td>
                  </tr>
                  <tr align="center"> 
                    <td height="50" colspan="2"> 
                      <input type="submit" value="　提交　" name="B1" class="put1">
                      <input type="reset" value="　重写　" name="B2" class="put1">
                    </td>
                  </tr>
                </table>
              </td>
            </tr>
          </table>
  </div>
</form>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -