📄 func_guest.asp
字号:
response.write " **************************************<br>"
response.write " * 隐藏留言，管理员和留言用户可以看到 *<br>"
response.write " **************************************"
response.write "</font>"
else
if rsGuest("GuestIsPrivate")=true then
response.write "<font color=green>[隐藏]</font> "
end if
response.write KeywordReplace(ubbcode(dvHTMLEncode(rsGuest("GuestContent"))))
end if
%></td>
</tr>
</table> </td>
</tr>
<tr>
<td valign="bottom"><%call ShowGuestreply()%></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#efefef">
<tr>
<td nowrap> <font color="#666666">
<% =rsGuest("GuestDatetime")%>
</font></td>
<td align="right" nowrap width="45%"><%call ShowGuestButton()%></td>
</tr>
</table><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#000000">
<tr>
<td height="1"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<%
rsGuest.movenext
i=i+1
if i>=MaxPerPage then exit do
loop
end sub
'=================================================
'过程名：ShowGuestreply()
'作 用：显示回复留言
'参 数：无
'=================================================
sub ShowGuestreply()
if len(rsGuest("GuestReply")) >0 then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td height="1" bgcolor="#efefef"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="3" cellspacing="0" style="TABLE-LAYOUT: fixed" bgcolor="#F6F6F6">
<tr>
<td><font color="#006633">管理员</font><font color="#FF0000">[<%=rsGuest("GuestReplyAdmin")%>]</font><% =rsGuest("GuestReplyDatetime") %>回复:<font color="#996600">
<% =KeywordReplace(ubbcode(dvHTMLEncode(rsGuest("GuestReply")))) %>
</font></td>
</tr>
</table>
<%
end if
end sub
'**************************************************
'函数名：KeywordReplace
'作 用：标示搜索关键字
'参 数：strChar-----要转换的字符
'返回值：转换后的字符
'**************************************************
function KeywordReplace(strChar)
if strChar="" then
KeywordReplace=""
else
KeywordReplace= replace(strChar,""&keyword&"","<font color=red>"&keyword&"</font>")
end if
end function
'=================================================
'过程名：WriteGuest()
'作 用：添加留言
'参 数：无
'=================================================
sub WriteGuest()
if SaveEdit<>1 then
WriteType=GuestType
WriteName=LoginName
WriteSex="1"
WriteFace="1"
WriteImages="01"
WriteHomepage="http://"
end if
%>
<script language=JavaScript>
function changeimage()
{
document.formwrite.GuestImages.value=document.formwrite.Image.value;
document.formwrite.showimages.src="<%=GuestPath%>"+document.formwrite.Image.value+".gif";
}
function guestpreview()
{
document.preview.content.value=document.formwrite.GuestContent.value;
var popupWin = window.open('GuestPreview.asp', 'GuestPreview', 'scrollbars=yes,width=620,height=230');
document.preview.submit()
}
function check(thisform)
{
if(thisform.GuestName.value==""){
alert("姓名不能为空！")
thisform.GuestName.focus()
return(false)
}
if(thisform.GuestTitle.value==""){
alert("留言主题不能为空！")
thisform.GuestTitle.focus()
return(false)
}
if(thisform.GuestContent.value==""){
alert("留言内容不能为空！")
thisform.GuestContent.focus()
return(false)
}
if(thisform.GuestContent.value.length>500){
alert("留言内容不能超过500字符！")
thisform.GuestContent.focus()
return(false)
}
if(thisform.reg.checked==true){
if(thisform.GuestName.value.length>14 || thisform.GuestName.value.length<4){
alert("如果注册，用户名长度不能大于14或小于4！")
thisform.GuestName.focus()
return(false)
}
if(thisform.GuestEmail.value==""){
alert("如果注册，用户Email不能为空且必须正确填写！")
thisform.GuestEmail.focus()
return(false)
}
if(thisform.psw.value=="" || thisform.psw.value.length<6){
alert("如果注册，注册密码不能为空，且长度至少六位！")
thisform.psw.focus()
return(false)
}
if(thisform.pswc.value=="" || thisform.pswc.value!=thisform.psw.value){
alert("确认密码不能为空，且需与注册密码相同！")
thisform.pswc.focus()
return(false)
}
if(thisform.question.value==""){
alert("密码问题不能为空！")
thisform.question.focus()
return(false)
}
if(thisform.answer.value==""){
alert("问题答案不能为空！")
thisform.answer.focus()
return(false)
}
}
}
function showreginfo(){
if (document.formwrite.reg.checked == true) {
reginfo.style.display = "";
// reginfoshowtext.innerText="暂时不想注册成为贵站会员"
}else{
reginfo.style.display = "none";
// reginfoshowtext.innerText="我想同时注册成为贵站会员"
}
}
function showubbinfo(){
if (document.formwrite.ubb.checked == true) {
ubbinfo.style.display = "";
ubbinfoshowtext.innerText="UBB关"
}else{
ubbinfo.style.display = "none";
ubbinfoshowtext.innerText="UBB开"
}
}
function gbcount(message,total,used,remain)
{
var max;
max = total.value;
if (message.value.length > max) {
message.value = message.value.substring(0,max);
used.value = max;
remain.value = 0;
alert("留言不能超过 500 个字!");
}
else {
used.value = message.value.length;
remain.value = max - used.value;
}
}
</script>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<table width="100%" cellpadding="1" cellspacing="0">
<tr>
<td colspan="5"> <font color=green><%=PageTitle%></font></td>
</tr>
<tr>
<td colspan="5" align="center" height="10"></td>
</tr>
<form name="formwrite" method="post" action="<%=strFileName%>?action=savewrite" onSubmit="return check(formwrite)">
<% if WriteType=0 then%>
<tr>
<td width="20%" align="center">姓 名:</td>
<td width="30%">
<input type="text" name="GuestName" maxlength="14" size="20" value="<%=WriteName%>">
<font color=red>*</font>
</td>
<td width="22%"> </td>
<td colspan="2"> </td>
</tr>
<tr>
<td align="center">性 别:</td>
<td>
<input type="radio" name="GuestSex" value="1" <% if WriteSex=1 then response.write" checked"%> style="BORDER:0px;">
男
<input type="radio" name="GuestSex" value="0" <% if WriteSex=0 then response.write" checked"%> style="BORDER:0px;">
女 </td>
<td>
<select name="Image" size="1" onChange="changeimage();" >
<%
for i=1 to 9
response.write "<option value='0"&i&"'>0"&i&"</option>"
next
for i=10 to 23
response.write "<option value='"&i&"'>"&i&"</option>"
next
%>
</select>
</td>
<td colspan="2"> </td>
</tr>
<tr>
<td align="center">E-mail</td>
<td>
<input type="text" name="GuestEmail" maxlength="30" size="20" value="<%=WriteEmail%>">
</td>
<td rowspan="4">
<input type="hidden" name="GuestImages" value="01">
<img name=showimages src="<%=GuestPath%><%=WriteImages%>.gif" width="80" height="90" border="0" onClick=window.open("guestselect.asp?action=guestimages","face","width=480,height=400,resizable=1,scrollbars=1") title=点击选择头像 style="cursor:hand">
</td>
<td colspan="2" rowspan="4">
<table width="100%" border="0" cellspacing="0" cellpadding="0" id=reginfo style="DISPLAY: none">
<tr>
<td width="35%" align="center">注册密码：<br>
</td>
<td>
<input type=password maxlength=16 size=16 name=psw>
</td>
</tr>
<tr>
<td align="center">密码确认：</td>
<td>
<input type=password maxlength=16 size=16 name=pswc>
</td>
</tr>
<tr>
<td align="center">密码问题：</td>
<td>
<input type=text maxlength=30 size=16 name=question>
</td>
</tr>
<tr>
<td align="center">问题答案：</td>
<td>
<input type=text maxlength=30 size=16 name=answer>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center">Oicq:</td>
<td>
<input type="text" name="GuestOicq" maxlength="15" size="20" value="<%=WriteOicq%>">
</td>
</tr>
<tr>
<td align="center">Icq:</td>
<td>
<input type="text" name="GuestIcq" maxlength="15" size="20" value="<%=WriteIcq%>">
</td>
</tr>
<tr>
<td align="center">Msn:</td>
<td>
<input type="text" name="GuestMsn" maxlength="40" size="20" value="<%=WriteMsn%>">
</td>
</tr>
<tr>
<td align="center">个人主页:</td>
<td colspan="4">
<input type="text" name="GuestHomepage" maxlength="80" size="37" value="<%=WriteHomepage%>">
<input type="checkbox" name="reg" value="1" disabled onClick=showreginfo() style="BORDER:0px;" onfocus="this.blur()"><span id=reginfoshowtext>我想同时注册成为会员</span>
</td>
</tr>
<tr>
<td align="center"></td>
<td colspan="4"> </td>
</tr>
<%else%>
<tr>
<td align="center">选择头像：</td>
<td>
<input type="hidden" name="GuestName" value="<%=WriteName%>">
<input type="hidden" name="reg" value="1">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -