📄 lyb.asp
字号:
<td align="left">
<textarea name="reply" cols="60" rows="8" class="input1"><%=Rs("reply")%></textarea>
<br>
<br>
<input name="view" type="checkbox" id="view" value="1" <%=view2%>>
通过审批</td>
</tr>
<tr align="center">
<td colspan="2">
<input type="hidden" name="action_e" value="Edit">
<input type="hidden" name="id" value="<%=Request.QueryString("id")%>">
<input type="submit" name="Submit" value="修改留言" id="Submit" class="input1">
<a href="<%=indexfilename%>?action=View_Words">返回</a></td>
</tr>
</form>
</table>
<% End Sub %>
<br>
<% Sub Edit_web() %>
<%
if Request.Form("submit")="修改" then
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From admin"
Rs.Open Sql,Conn,2,3
rs("title")=Request.Form("webtitle")
rs("gl")=Request.Form("webggg")
rs("gbyn")=cint(Request.Form("webyn"))
rs("webname")=Request.Form("webname")
rs.update
'if rs("title")<>"" then webtitle=rs("title")
'if rs("webname")<>"" then webname=rs("webname")
'if rs("gbyn")<>"" then webyn=rs("gbyn")
'if rs("words")<>"" then webgg=rs("words")
rs.close
set rs=nothing
response.redirect indexfilename &"?action=Edit_web"
response.end
end if
webyn2=""
if webyn=1 then
webyn2="checked"
end if
%>
<table width="600" border="0" cellspacing="1" cellpadding="4" align="center">
<form name="reply" method="post" action="<%=indexfilename%>">
<tr>
<td colspan="2" align="center"> 编辑留言板属性</td>
</tr>
<tr>
<td width="202" align="right" valign="top"> 留言板名称</td>
<td width="379"><input name="webname" type="text" id="webname" value="<%=webname%>" size="50" maxLength=25>
</td>
</tr>
<tr align="center">
<td align="right">公告内容：</td>
<td align="left"><input name="webtitle" type="text" id="webtitle" value="<%=webtitle%>" size="50"></td>
</tr>
<tr align="center">
<td align="right">词语过滤：</td>
<td align="left"><input name="webggg" type="text" id="webggg" value="<%=webgl%>" size="50">
</td>
</tr>
<tr align="center">
<td align="right">经过审批才显示留言：</td>
<td align="left"><input name="webyn" type="checkbox" id="webyn" value="1" <%=webyn2%>>
是</td>
</tr>
<tr align="center">
<td colspan="2">
<input type="hidden" name="action_e" value="Edit_web">
<input type="submit" name="Submit" value="修改" id="Submit" class="input1">
<a href="<%=indexfilename%>?action=View_Words">返回</a></td>
</tr>
</form>
</table>
<% End Sub %>
</body>
</html>
<% '这里是留言板的透明FLASH , 可以删除 ->
if Request("action")="View_Words" or Request("action")="" then %>
<div id="Layer1" style="position:absolute; right:1px; top:250px;z-index:1" width="680" height="350">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="680" height="350">
<param name="movie" value="<%=imdeximg%>fly.swf">
<param name="quality" value="high">
<param name="wmode" value="transparent">
<embed src="<%=imdeximg%>fly.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="680" height="350"></embed></object>
</div>
<% End if
''''这里是留言板的透明FLASH , 可以删除 <-
%>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'添加新留言到数据库
Sub Add_New_Execute()
'不良词语过滤
If Request.Form("name")="" Then
Response.Write "姓名不能为空"
Response.Write "<br>"
Response.Write "<a href="&indexfilename&"?action=Add_New"">返回</a>"
Response.End
End If
If Len(Request.Form("name"))>20 Then
Response.Write "姓名不能太长"
Response.Write "<br>"
Response.Write "<a href="&indexfilename&"?action=Add_New"">返回</a>"
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 "电子信箱格式填写不正确"
Response.Write "<br>"
Response.Write "<a href="&indexfilename&"?action=Add_New"">返回</a>"
Response.End
End If
End If
If Request.Form("words")="" Then
Response.Write "留言不能为空"
Response.Write "<br>"
Response.Write "<a href="&indexfilename&"?action=Add_New"">返回</a>"
Response.End
End If
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From words"
Rs.Open Sql,Conn,2,3
Rs.AddNew
Rs("name")=Server.HTMLEncode(Request.Form("name"))
Rs("sex")=Server.HTMLEncode(Request.Form("sex"))
Rs("head")=Server.HTMLEncode(Request.Form("head"))
Rs("web")=Server.HTMLEncode(Request.Form("web"))
Rs("email")=Server.HTMLEncode(Request.Form("email"))
Rs("words")=Server.HTMLEncode(Request.Form("words"))
Rs("qq")=Server.HTMLEncode(Request.Form("qq"))
Rs("head")=Server.HTMLEncode(Request.Form("Img"))
Rs("date")=Now()
Rs("ip")=request.servervariables("remote_addr")
Rs("come")=Server.HTMLEncode(Request.Form("come"))
Rs.Update
Rs.Close
Set Rs = Nothing
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'验证管理员登陆
Sub Admin_Login_Execute()
username = Server.HTMLEncode(Request.Form("username"))
password = Server.HTMLEncode(Request.Form("password"))
If username = "" OR password = "" Then
Response.Write "用户名或者密码为空"
Response.End
End If
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From admin"
Rs.Open Sql,Conn,1,1
If username = Rs("username") AND password = Rs("password") Then
Session("Admin") = "Login"
Else
Response.Write "用户名或者密码不对，登陆失败"
End If
Rs.Close
Set Rs = Nothing
End Sub
Sub EditPWD_Execute()
If Session("Admin")="" Then
Response.Write "连接超时,请重新登录"
Response.End
end if
oldusername=Server.HTMLEncode(Request.Form("oldusername"))
username = Server.HTMLEncode(Request.Form("username"))
username_c = Server.HTMLEncode(Request.Form("username_c"))
oldpwd = Server.HTMLEncode(Request.Form("oldpwd"))
newpwd = Server.HTMLEncode(Request.Form("newpwd"))
newpwd_c = Server.HTMLEncode(Request.Form("newpwd_c"))
If username = "" OR username_c="" Then
Response.Write "新旧用户名均不能为空"
Response.End
End If
If oldpwd = "" OR newpwd = "" OR newpwd_c="" Then
Response.Write "新旧密码均不能为空"
Response.End
End If
If username<>username_c Then
Response.Write "新填写的两个新用户名不一致，请重新填写"
Response.End
End If
If newpwd<>newpwd_c Then
Response.Write "新填写的两个密码不一致，请重新填写"
Response.End
End If
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From admin"
Rs.Open Sql,Conn,2,3
If Rs("password")=oldpwd And Rs("username")=oldusername Then
Rs("username")=username
Rs("password")=newpwd
Rs.Update
Else
Response.Write "你的旧密码填写不对或者旧用户名不对，修改不成功"
Response.End
End If
Rs.Close
Set Rs = Nothing
End Sub
Sub Exit_Admin()
Session.Abandon
response.redirect indexfilename
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'删除数据
Sub Delete()
If Session("Admin")="" Then
Response.Write "连接超时,请重新登录"
Response.End
end if
'删除数据
Conn.Execute("Delete * From words Where id="&Request.QueryString("id"))
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'回复留言添加到数据库
Sub Reply_Execute()
If Session("Admin")="" Then
Response.Write "连接超时,请重新登录"
Response.End
end if
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select reply From words Where id="&Request.Form("id")
Rs.Open Sql,Conn,2,3
Rs("reply") = Server.HTMLEncode(Request.Form("reply"))
Rs.Update
Rs.Close
Set Rs=Nothing
End Sub
Sub Edit_Execute()
If Session("Admin")="" Then
Response.Write "连接超时,请重新登录"
Response.End
end if
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"))
if cint(Request.Form("view"))=1 then
Rs("view")=1
else
Rs("view")=0
end if
'Rs("name")=Server.HTMLEncode(Request.Form("name"))
'Rs("sex")=Server.HTMLEncode(Request.Form("sex"))
'Rs("head")=Server.HTMLEncode(Request.Form("head"))
'Rs("web")=Server.HTMLEncode(Request.Form("web"))
'Rs("email")=Server.HTMLEncode(Request.Form("email"))
'Rs("qq")=Server.HTMLEncode(Request.Form("qq"))
'Rs("head")=Server.HTMLEncode(Request.Form("Image"))
Rs.Update
Rs.Close
Set Rs=Nothing
End Sub
Conn.Close
Set Conn = Nothing
%>
<%
'#################################################################
''作者:游泳的鱼 KX1999@21cn.com
''此UBB是平时学习收集而来
''版权:精点.NET , 欢迎免费使用
''请保留些信息,不会影响你的速度
'#################################################################
function unHtml(content)
unHtml=content
if content <> "" then
'unHtml=replace(unHtml,"&","&")
unHtml=replace(unHtml,"<","<")
unHtml=replace(unHtml,">",">")
unHtml=replace(unHtml,chr(34),""")
unHtml=replace(unHtml,chr(13),"<br>")
unHtml=replace(unHtml,chr(32)," ")
'使用数组 返回值数组 = Split("字符串","分割符")
'IsArray()判断是否数组的函数,LBound()取数组的下标,UBound()取数组的上标(是最大数)。
unhtmlgl=split(webgl,"|")
if IsArray(unhtmlgl) then
for i=0 to UBound(unhtmlgl)
unhtml=replace(unhtml,unhtmlgl(i),"***")
next
end if
'unHtml=ubb(unHtml)
end if
end function
function ubb(content)
ubb=content
nowtime=now()
UBB=Convert(ubb,"code")
UBB=Convert(ubb,"html")
UBB=Convert(ubb,"url")
UBB=Convert(ubb,"color")
UBB=Convert(ubb,"font")
UBB=Convert(ubb,"size")
UBB=Convert(ubb,"quote")
UBB=Convert(ubb,"email")
UBB=Convert(ubb,"img")
UBB=Convert(ubb,"swf")
ubb=convert(ubb,"cen")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -