⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 book.asp

📁 主要功能是为大家提供一个免费的校园平台网站,有新闻发布、会员及管理、论坛
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
Response.Write "<td><input type=""radio"" name=""SEX"" value=""boy"" checked>帅哥 <input type=""radio"" name=""SEX"" value=""girl"">美女</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td>电子邮箱：</td>" & vbCrLf
Response.Write "<td><input type=""text"" name=""email"" maxlength=""30"" size=""20"" class='lanyu'></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td>腾迅 QQ:</td>" & vbCrLf
Response.Write "<td><input type=""text"" name=""qq"" maxlength=""15"" size=""20"" class='lanyu'> 填写此项可以显示你的QQ秀</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td>朗玛 UC:</td>" & vbCrLf
Response.Write "<td><input type=""text"" name=""uc"" maxlength=""15"" size=""20"" class='lanyu'></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td>个人主页:</td>" & vbCrLf
Response.Write "<td><input type=""text"" name=""web"" maxlength=""40"" size=""20"" class='lanyu'> 必须包含http://</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr> <td>来自哪里:</td>" & vbCrLf
Response.Write "<td><input type=""text"" name=""city"" maxlength=""40"" size=""20"" class='lanyu'></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr><td>类型选择:</td>" & vbCrLf
Response.Write "<td><input type=""radio"" name=""title"" value=""1"" checked><font color=#0000FF>留言</font> <input type=""radio"" name=""title"" value=""2""><font color=#FF00FF>建议" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "</font> <input type=""radio"" name=""title"" value=""3""><font color=#FF7F50>报错</font> <input type=""radio"" name=""title"" value=""4""><font color=#228B22>连接</font>" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "<input type=""radio"" name=""title"" value=""5""><font color=#1E90FF>其它</font></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td valign=""top"">留言内容: <br><font color=red>*支持UBB</font></td>" & vbCrLf
Response.Write "<td  valign=""bottom""><textarea name=""words"" cols=""40"" rows=""6"" class='lanyu' onkeydown=""bookshowLen(this)"" onkeyup=""bookshowLen(this)""></textarea>&nbsp;字数：<input type='text' value='0' id='wordsLen' size='2' style='border-width:0;background:transparent;'><font title='等于或小于255个字！'>≤255</font></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td valign=""middle"">是否隐藏：</td>" & vbCrLf
Response.Write "<td valign=""top"">" & vbCrLf
Response.Write "<input type=""radio"" name=""admin"" value=""0"" checked> 否 <input type=""radio"" name=""admin"" value=""1""> 是&nbsp;&nbsp;<font color=#009900>*</font> 选择隐藏后，此" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "留言只有管理员可以看到。</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td valign=""middle"">认证码：</td>" & vbCrLf
Response.Write "<td valign=""top"">" & vbCrLf
Response.Write "<input name=""VerifyCode"" type=""text"" size=""10""> &nbsp;<img src=""inc/lyCode.asp""></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td align=""center""  height=""40"" colspan=""2"">" & vbCrLf
Response.Write "<input type=""hidden"" name=""action_e"" value=""Add_New""> <input type=""submit"" name=""Submit"" value=""提交"" onmouseover=""this.className='boton'""" & vbCrLf
Response.Write "" & vbCrLf
Response.Write "onmouseout=""this.className='botoff'"" class=""botoff"">" & vbCrLf
Response.Write "        <input type=""reset"" name=""Submit2"" value=""重写"" onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'"" class=""botoff"">" & vbCrLf
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</form>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table>"
End Sub
Sub Edit()
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From words Where id="&Request.QueryString("id")
Rs.Open Sql,Conn,1,1
Response.Write "<form name=""reply"" method=""post"" action=""book.asp"">" & vbCrLf
Response.Write "<tr bgcolor=""#ffffff"">" & vbCrLf
Response.Write " <TD align=""center"">来客留言内容</TD></tr>" & vbCrLf
Response.Write "<tr bgcolor=""#ffffff"">" & vbCrLf
Response.Write "<td align=""center""><textarea name=""words"" cols=""80"" rows=""5"">"&Rs("words")&"</textarea></td></tr>" & vbCrLf
Response.Write "<tr bgcolor=""#ffffff"">" & vbCrLf
Response.Write " <TD align=""center"">回复内容</TD></tr>" & vbCrLf
Response.Write "<tr bgcolor=""#ffffff"">" & vbCrLf
Response.Write "<td align=""center""><textarea name=""reply"" cols=""80"" rows=""5"" class='lanyu'>"&Rs("reply")&"</textarea></td></tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td valign=""middle"">是否隐藏：" & vbCrLf
Response.Write "<input type=""radio"" name=""admin"" value=""0"""
If Rs("admin")="0" Then
Response.Write "checked" & vbCrLf
end if
Response.Write "> 否" & vbCrLf
Response.Write "<input type=""radio"" name=""admin"" value=""1"""
If Rs("admin")="1" Then
Response.Write "checked" & vbCrLf
end if
Response.Write "> 是"
Response.Write "&nbsp;&nbsp;<font color=#009900>*</font> 选择隐藏后，此留言只有管理员可以看到。</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr align=""center""><td colspan=""2""><input type=""hidden"" name=""action_e"" value=""Edit"">" & vbCrLf
Response.Write "        <input type=""hidden"" name=""id"" value="""&Request.QueryString("id")&""">" & vbCrLf
Response.Write "        <input type=""submit"" name=""Submit"" value=""确定"" id=""Submit"" onmouseover=""this.className='boton'"" onmouseout=""this.className='botoff'"" class=""botoff""></td></tr>" & vbCrLf
Response.Write "</form>" & vbCrLf
Response.Write "<tr align=""center""><td bgcolor=""#F0f0f0"" height=""1""></td></tr>" & vbCrLf
Response.Write "</table><br>" & vbCrLf
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table>"
End Sub 
Sub Add_New_Execute()
	If Request.Form("name")="" Then
	Response.Write "<script language=javascript>alert('姓名不能为空！');javascript:history.back();</script>"
	Response.End
	End If
	If Len(Request.Form("name"))>10 Then
	Response.Write "<script language=javascript>alert('你的名字太长了！');javascript:history.back();</script>"
	Response.End
	End If
	If Request.Form("email")<>"" Then
	If instr(Request.Form("email"),"@")=0 or instr(Request.Form("email"),"@")=1 or instr(Request.Form("email"),"@")=len(email) then
	Response.Write "<script language=javascript>alert('电子信箱格式填写不正确！');javascript:history.back();</script>"
	Response.End
	End If
	End If
        If Request.Form("qq")<>"" Then
	If Len(Request.Form("qq"))<5 or Len(Request.Form("qq"))>9 or Not IsNumeric(Request.Form("qq")) then
	Response.Write "<script language=javascript>alert('QQ号码错误：\n\n① QQ号码只能是数字。\n\n② QQ号码不能低于4位数 \n\n③ QQ号码不能高于9位数\n\n④ 如果你没有QQ号码可以不填！');javascript:history.back();</script>"
	Response.End
	End If
	End If
        If Request.Form("uc")<>"" Then
	If Len(Request.Form("uc"))<5 or Len(Request.Form("uc"))>9 or Not IsNumeric(Request.Form("uc")) then
	Response.Write "<script language=javascript>alert('UC号码错误：\n\n① UC号码只能是数字。\n\n② UC号码不能低于4位数 \n\n③ UC号码不能高于9位数\n\n④ 如果你没有UC号码可以不填！');javascript:history.back();</script>"
	Response.End
	End If
	End If
	If Request.Form("words")="" Then
	Response.Write "<script language=javascript>alert('留言内容不能为空！');javascript:history.back();</script>"
	Response.End
	End If
        If Request.Form("words")<>"" Then
	If Len(Request.Form("words"))<4 or Len(Request.Form("words"))>255 then
	Response.Write "<script language=javascript>alert('留言内容错误提示：\n\n① 留言不得低于4个字！\n\n② 留言不得高于255个字，长篇大论请到论坛发表！');javascript:history.back();</script>"
	Response.End
	End If
	End If
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	Sql="Select * From words"
	Rs.Open Sql,Conn,2,3
	Rs.AddNew
        if Request.Form("name")=webceo then
        Rs("name")=noceo
        elseif Request.Form("name")=ceopass then
        Rs("name")=webceo
        else
        Rs("name")=Server.HTMLEncode(Request.Form("name"))
        End If
	Rs("sex")=Server.HTMLEncode(Request.Form("sex"))
        Rs("qq")=Server.HTMLEncode(Request.Form("qq"))
        Rs("uc")=Server.HTMLEncode(Request.Form("uc"))
	Rs("city")=Server.HTMLEncode(Request.Form("city"))
	Rs("web")=Server.HTMLEncode(Request.Form("web"))
	Rs("email")=Server.HTMLEncode(Request.Form("email"))
        Rs("admin")=Server.HTMLEncode(Request.Form("admin"))
        Rs("title")=Server.HTMLEncode(Request.Form("title"))
	Rs("words")=Server.HTMLEncode(Request.Form("words"))
	Rs("date")=Now()
        Rs("ip")=request.servervariables("remote_addr")
	Rs.Update
	Rs.Close
        Session("GetCode")=""
	Set Rs = Nothing

End Sub
Sub Delete()
	Conn.Execute("Delete * From words Where id="&Request.QueryString("id"))
End Sub
Sub Edit_Execute()
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	Sql="Select * From words Where id="&Request.Form("id")
	Rs.Open Sql,Conn,2,3
	Rs("words") = Server.HTMLEncode(Request.Form("words"))
	Rs("reply") = Server.HTMLEncode(Request.Form("reply"))
        Rs("admin") = Server.HTMLEncode(Request.Form("admin"))
        Rs("redate") = Now()
	Rs.Update
	Rs.Close
	Set Rs=Nothing
End Sub
Conn.Close
Set Conn = Nothing
function unHtml(content)
unHtml=content
if content <> "" then
unHtml=replace(unHtml,"<","&lt;")
123

⌨️ 快捷键说明

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