?? 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 + -