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

📄 book.asp

📁 本程序采用花香内核
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
Response.Write "<tr>" & vbCrLf
Response.Write "<td class=table-xia>&nbsp;腾迅 Q Q：</td>" & vbCrLf
Response.Write "<td class=table-xia><input type=""hidden"" name=""qq"" size=""20"" value="&rs("QQ")&">"&rs("QQ")&" </td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td class=table-xia>&nbsp;个人主页：</td>" & vbCrLf 
Response.Write "<td class=table-xia><input type=""hidden"" name=""web"" size=""20"" value="&rs("Homepage")&">"&rs("Homepage")&" </td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
else
Response.Write "<tr>" & vbCrLf
Response.Write "<td width=""80"" class=table-xia>&nbsp;您的姓名：</td>" & vbCrLf
Response.Write "<td width=""300"" class=table-xia><input type=""text"" name=""name"" maxlength=""7"" size=""20"" class='go-input' autocomplete=""off"">    <font color=red>*</font> ≤7个字符或7个汉字</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td class=table-xia>&nbsp;您的性别：</td>" & vbCrLf
Response.Write "<td class=table-xia><input type=""radio"" name=""SEX"" value=""1"" checked>帅哥 <input type=""radio"" name=""SEX"" value=""2"">美女</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td class=table-xia>&nbsp;电子邮箱：</td>" & vbCrLf
Response.Write "<td class=table-xia><input type=""text"" name=""email"" maxlength=""30"" size=""20"" class='go-input'></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td class=table-xia>&nbsp;腾迅 QQ：</td>" & vbCrLf
Response.Write "<td class=table-xia><input type=""text"" name=""qq"" maxlength=""15"" size=""20"" class='go-input'> 填写你的QQ号码</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td class=table-xia>&nbsp;个人主页：</td>" & vbCrLf
Response.Write "<td class=table-xia><input type=""text"" name=""web"" maxlength=""40"" size=""20"" class='go-input'> 网址必须包含http://</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
end if
Response.Write "<tr> <td class=table-xia>&nbsp;选择头像：</td>" & vbCrLf
Response.Write "<td class=table-xia><select name=""uc"" size=""1"" id=""select5"" onChange=""document.all.idface.src=options[selectedIndex].value;""><option value='img/face/01.gif'>女生头像—1</option><option value=""img/face/02.gif"">女生头像—2</option><option value=""img/face/03.gif"">女生头像—3</option><option value=""img/face/04.gif"">女生头像—4</option><option value=""img/face/05.gif"">女生头像—5</option><option value=""img/face/06.gif"">女生头像—6</option><option value=""img/face/07.gif"">女生头像—7</option><option value=""img/face/08.gif"">女生头像—8</option><option value=""img/face/09.gif"" selected>男生头像—1</option><option value=""img/face/10.gif"">男生头像—2</option><option value=""img/face/11.gif"">男生头像—3</option><option value=""img/face/12.gif"">男生头像—4</option><option value=""img/face/13.gif"">男生头像—5</option><option value=""img/face/14.gif"">男生头像—6</option><option value=""img/face/15.gif"">男生头像—7</option><option value=""img/face/16.gif"">男生头像—8</option></select>&nbsp;&nbsp;&nbsp;&nbsp;<img src=""img/face/09.gif"" width=""60"" height=""60"" id=idface></td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td width=""80"" class=table-xia>&nbsp;发表主题：</td>" & vbCrLf
Response.Write "<td width=""300"" class=table-xia><input type=""text"" name=""zt"" maxlength=""10"" size=""20"" class='go-input' autocomplete=""off"">   <font color=red>*</font> ≤10个字符或10个汉字</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "<tr><td class=table-xia>&nbsp;类型选择：</td>" & vbCrLf
Response.Write "<td class=table-xia><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"" class=table-xia>&nbsp;留言内容： <br><font color=red>&nbsp;*支持UBB</font></td>" & vbCrLf
Response.Write "<td valign=""bottom"" class=table-xia><textarea name=""words"" cols=""50"" rows=""6"" class='input' 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"" class=table-xia>&nbsp;是否隐藏：</td>" & vbCrLf
Response.Write "<td valign=""top"" class=table-xia>" & 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"" class=table-xia>&nbsp;认证码：</td>" & vbCrLf
Response.Write "<td valign=""top"" class=table-xia>" & vbCrLf
Response.Write "<input name=""VerifyCode"" type=""text"" size=""10"" class='go-input'> &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""><input type='text' name='zt' maxlength='12' size='60' class='lanyu' value="&Rs("zt")&"></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=""words"" cols=""60"" 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=""60"" 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("zt")="" Then
	Response.Write "<script language=javascript>alert('主题不能为空！');javascript:history.back();</script>"
	Response.End
	End If
	If Len(Request.Form("zt"))>10 Then
	Response.Write "<script language=javascript>alert('你的主题太长了！');javascript:history.back();</script>"
	Response.End
	End If
	If Request.Form("name")="" Then
	Response.Write "<script language=javascript>alert('姓名不能为空！');javascript:history.back();</script>"
	Response.End
	End If
	If Len(Request.Form("name"))>12 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"))>10 or Not IsNumeric(Request.Form("qq")) then
	Response.Write "<script language=javascript>alert('QQ号码错误：\n\n① QQ号码只能是数字。\n\n② QQ号码不能低于4位数 \n\n③ QQ号码不能高于10位数\n\n④ 如果你没有QQ号码可以不填！');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("zt")=Server.HTMLEncode(Request.Form("zt"))
	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("zt") = Server.HTMLEncode(Request.Form("zt"))
	Rs("words") = Server.HTMLEncode(Request.Form("words"))
	Rs("reply") = Server.HTMLEncode(Request.Form("reply"))
        Rs("admin") = Server.HTMLEncode(Request.Form("admin"))
123

⌨️ 快捷键说明

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