yd_guestbook_admin_edit.asp

是个不错的留言版

    <td width=75% class=tablebody1>
	<%for i=1 to 9%>
	<input type="radio" value="face<%=i%>" name="xingqingtu" <%If i=1 then response.write "checked"%>><img src="Skins/Default/topicface/face<%=i%>.gif">&nbsp;&nbsp;<%Next%>
	<br>
	<%for i=10 to 18%>
	<input type="radio" value="face<%=i%>" name="xingqingtu"><img src="Skins/Default/topicface/face<%=i%>.gif">&nbsp;&nbsp;
	<%Next%>
    </td>
  </tr>
  <tr>
    <td class=tablebody1 width="25%" valign="top" align="left" colspan="2"><B>请选择头像：</B><li>头像将出现在您的留言中</td>
    <td class=tablebody1 width="75%" valign="top" align="left" rowspan="2">&nbsp;选择头像：&nbsp;<select name=ThemeFace size=1 onChange="document.images['ThemeFace'].src=options[selectedIndex].value;">
<%
	For i=1 to 60
	userregface="Images/userface/Image" & i & ".gif"
	If trim(lcase(AnswerFace)) = trim(lcase(userregface)) then
	%> 
	<option value='Images/userface/Image<%=i%>.gif' selected>Image<%=i%></option>
<%
	Else
	%>
	<option value='Images/userface/Image<%=i%>.gif'>Image<%=i%></option>
<%
	End if
	Next
	%>
	</select>&nbsp;&nbsp;颜色：&nbsp;<SELECT name=color>
<option style="background-color:black;color: black" value="black" <%If AnswerColor="black" then%> selected <%End if%>>黑色 </option>
<option style="background-color:blue;color: blue" value="blue" <%If AnswerColor="blue" then%> selected <%End if%>>蓝色 </option>
<option style="background-color:red;color: red" value="red" <%If AnswerColor="red" then%> selected <%End if%>>红色 </option>
<option style="background-color:olive;color: olive" value="olive" <%If AnswerColor="olive" then%> selected <%End if%>>橄榄色 </option>
<option style="background-color:teal;color: teal" value="teal" <%If AnswerColor="teal" then%> selected <%End if%>>青色 </option>
<option style="background-color:maroon;color: maroon" value="maroon" <%If AnswerColor="maroon" then%> selected <%End if%>>栗色 </option>
<option style="background-color:navy;color: navy" value="navy" <%If AnswerColor="navy" then%> selected <%End if%>>海蓝色 </option>
<option style="background-color:gray;color: gray" value="gray" <%If AnswerColor="gray" then%> selected <%End if%>>灰色 </option>
<option style="background-color:lime;color: lime" value="lime" <%If AnswerColor="lime" then%> selected <%End if%>>绿色 </option>
<option style="background-color:Fuchsia;color: fuchsia" value="fuchsia" <%If AnswerColor="fuchsia" then%> selected <%End if%>>紫色 </option>
<option style="background-color:yellow;color: yellow" value="yellow" <%If AnswerColor="yellow" then%> selected <%End if%>>黄色 </option>
<option style="background-color:green;color: green" value="green" <%If AnswerColor="green" then%> selected <%End if%>>深绿色 </option>
<option style="background-color:purple;color: purple" value="purple" <%If AnswerColor="purple" then%> selected <%End if%>>深紫色 </option></SELECT><BR>&nbsp;<textarea name="Content" cols="95" rows="12"><%=Server.htmlencode(Content)%></textarea></td>
  </tr>
  <tr>
    <td class=tablebody1 width="13%" valign="middle"><B>内容：</B><li>不支持html语法<li>UBB标签不支持</td>
    <td class=tablebody1 width="12%" align="center"><img id=ThemeFace src="<%=AnswerFace%>"></td>
  </tr>
<%
End if
%>
  <tr>
    <td align="center" colspan="3" class=tablebody1><input type=submit name="submit" value="提 交">&nbsp;&nbsp;<input type="reset" name="submit" value="重 填"></td>
  </tr>
  </form>
</table>
<%
Rs.close
Set Rs=nothing
End sub

Sub SaveEdit()
Dim Tid,mincheng,E_mail,MyWeb,Oicq,zhuti,infoname,Content,Sip,xingqingtu,ThemeFace

Tid=request("Tid")
mincheng=trim(replace(Request.form("mincheng"),"'",""))
E_mail=trim(replace(Request.form("E_mail"),"'",""))
MyWeb=trim(replace(Request.form("MyWeb"),"'",""))
Oicq=trim(Request.form("Oicq"))
zhuti=trim(replace(Request.form("zhuti"),"'",""))
Content=Request.form("Content")
Sip=request.ServerVariables("REMOTE_ADDR")
xingqingtu=trim(Request.Form("xingqingtu")&".gif")
ThemeFace=trim(Request.Form("ThemeFace")&"")
If mincheng="" then
	errmess="<li>错误请输入您的姓名。"
	call endinfo(2)
	Exit sub
End if

If len(mincheng)>12 then
	errmess="<li>错误姓名长度不能超过12个英文字符"
	call endinfo(2)
	exit sub
End if

If E_mail=""  then
	errmess="<li>错误E_mail地址必须输入。"
	call endinfo(2)
	exit sub
End if

If len(E_mail) <> 0 and InStr(2,E_mail,"@")=0 then
	errmess="<li>错误E_mail地址错误。"
	call endinfo(2)
	exit sub
End if

If len(E_mail)>25 then
	errmess="<li>错误E_mail长度不能超过25个英文字符"
	call endinfo(2)
	exit sub
End if

If len(MyWeb)>60 then
	errmess="<li>错误网址长度不能超过60个英文字符"
	call endinfo(2)
	exit sub
End if

If Oicq<>"" then
	If not isnumeric(Oicq) or len(Oicq)>18 then
		errmess="<li>错误Oicq号码必须输入数字。"
		call endinfo(2)
		exit sub
	End if
End if

If Content="" then
	errmess="<li>错误请输入内容。"
	call endinfo(2)
	exit sub
End if

If len(Content)>1000 then
	errmess="<li>内容长度不能超过1000个英文字符"
	call endinfo(2)
	exit sub
End if

Sql="select Thid,distinguish from YD_Guest_Theme where id="&Tid
Set Rs=guestbook_conn.execute(Sql)
If Rs(1)="1" then
	If zhuti="" then
		errmess="<li>错误请输入主题。"
		call endinfo(2)
		exit sub
	End if
	If len(zhuti)>50 then
		errmess="<li>主题长度不能超过50个英文字符"
		call endinfo(2)
		exit sub
	End if
	guestbook_conn.execute("update YD_Guest_topic set UserName='"&mincheng&"',ThemeEmail='"&E_mail&"',ThemeWeb='"&MyWeb&"',ThemeOicq='"&Oicq&"',SaveTheme='"&zhuti&"',Express='"&xingqingtu&"',ThemeFace='"&ThemeFace&"',LastCon='"&mincheng&"' where id="&Rs(0))
	guestbook_conn.execute("update YD_Guest_Theme set AnswerName='"&mincheng&"',AnswerEmail='"&E_mail&"',AnswerWeb='"&MyWeb&"',AnswerOicq='"&Oicq&"',Content='"&Content&"',AnswerExpress='"&xingqingtu&"',AnswerFace='"&ThemeFace&"',AnswerColor='"&request.Form("color")&"',EditTime="&G_NowString&" where id="&Tid)
	Response.Redirect "YD_guestbook_Save.asp?action=information&sid=1&act=<li>恭喜，您编辑留言主题成功。&Flag=2"
Else
	guestbook_conn.execute("update YD_Guest_topic set LastCon='"&mincheng&"' where id="&Rs(0))
	guestbook_conn.execute("update YD_Guest_Theme set AnswerName='"&mincheng&"',AnswerEmail='"&E_mail&"',AnswerWeb='"&MyWeb&"',AnswerOicq='"&Oicq&"',Content='"&Content&"',AnswerExpress='"&xingqingtu&"',AnswerFace='"&ThemeFace&"',AnswerColor='"&request.Form("color")&"',EditTime="&G_NowString&" where id="&Tid)
	Response.Redirect "YD_guestbook_Save.asp?action=information&sid=1&act=<li>恭喜，您编辑回复留言成功。&Flag=2"
End if
End sub

Sub Savepadlock()
Dim id,dist
id=request("id")
dist=request("dist")
If dist=1 then
	guestbook_conn.execute("update YD_Guest_topic set Padlock='1' where id="&id)
	Response.Redirect "YD_guestbook_Save.asp?action=information&sid=1&act=<li>恭喜，留言锁定成功。&Flag=2"
Else
	guestbook_conn.execute("update YD_Guest_topic set Padlock='0' where id="&id)
	Response.Redirect "YD_guestbook_Save.asp?action=information&sid=1&act=<li>恭喜，留言解锁成功。&Flag=2"
End if
End sub
%>