index.asp

沃尔夫巍峨王若飞违反为俄文服务费各个分填入建议他已经有条件倚天剑与今天已经有

	}
	if(!HW_CheckEmail(formobj.email.value)){
		alert("请输入正确邮箱");
		formobj.email.focus();
		return false;
	}
	if(formobj.content.value==""){
		alert("请输入留言内容");
		formobj.content.focus();
		return false;
	}
}
//-->
</SCRIPT>
  <table border="0" width="100%">
  <form method="post" action="<% = Request.ServerVariables("SCRIPT_NAME") %>" name="HwForm0" onsubmit="return(ckform())"><input type="hidden" name="act" value="save">
	<tr>
	  <td width="100%" align="left" valign="top">留言内容(*)(1000个字符以内)：<br><textarea class="input" style="overflow:auto;width:99%;" rows="6" name="content" cols="50"></textarea></td>
	  <td align="left" valign="top">
	  姓名(*)：<br><input class="input" size="20" maxlength="10" type="text"  name="name" value=""><br>
	  邮箱(*)(不公开)：<br><input class="input" size="20" maxlength="50"  type="text" name="email" value="">
	  <div align="right"><br><input type="submit"  name="inputname" value="提交留言"></div></td>
	</tr>
	</form>
  </table>
<%end if%>
			</td>
			</tr>
		</table>
	  </td>
	</tr>
<%
if rs.eof and rs.bof then
%>
	<tr>
	  <td width="100%" height="120" align="center">暂时还没有留言</td>
	</tr>
<%
else
%>
	<tr>
	  <td width="100%">
<%
	rs.pagesize=ps
	totalput=rs.recordcount
	totalpages=rs.pagecount
	maxperpage=rs.pagesize
	if currentpage < 1 then
		currentpage = 1
	end if
	if currentpage > totalpages then
		currentpage=totalpages
	end if
	if currentPage=1 then
		showContent
	else
		if (currentPage-1)*MaxPerPage < totalPut then
			rs.move  (currentPage-1)*MaxPerPage
			dim bookmark
			bookmark=rs.bookmark
			showContent
		end if
	end if
	rs.close
	set rs=nothing  
	sub showContent
		dim i
		dim k
		k=(totalPut-MaxPerPage*(currentPage-1))+1
		i=0
		do while not (rs.eof or err)
		k=k-1
%>
<%if i > 0 then%><br><%end if%>
<table border="1" width="100%" bordercolor="#DDDDDD" class="ontable">
<tr>
	<td nowrap>姓　　名：</td>
	<td width="100%">
  <table border="0" width="100%" cellspacing="0" cellpadding="0">
    <tr>
      <td nowrap style="padding:0px;"><% = server.htmlencode(rs("name")) %></td>
	  <td align="right" nowrap style="padding:0px;"><% = rs("theDate") %></td>
    </tr>
  </table></td>
</tr>
<%if session("islogin") = LoginPassWord then%>
<form method="post" action="<% = Request.ServerVariables("SCRIPT_NAME") %>" name="HwForm<% = rs("ID") %>">
<input type="hidden"  name="act" value="re">
<input type="hidden"  name="gid" value="<% = rs("ID") %>">
<tr>
	<td nowrap>留言内容：</td>
	<td><textarea rows="4" class="input" name="content" cols="48" style="overflow:auto;width:100%;"><% = server.htmlencode(rs("content")) %></textarea></td>
</tr>
<tr class="bg1">
	<td nowrap>个人信息：</td>
	<td>邮件：<a title="发送邮件" href="mailto:<% = server.htmlencode(rs("email")) %>"><% = server.htmlencode(rs("email")) %></a> / IP：<a target="_blank" title="查询IP所在地" href="http://whois.pconline.com.cn/whois/?ip=<% = rs("ip") %>"><% = rs("ip") %></a></td>
</tr>
<tr>
	<td>回　　复：</td>
	<td><textarea rows="4" class="input" name="reply" cols="48" style="overflow:auto;width:100%;"><% = server.htmlencode(rs("reply")) %></textarea><div align="right"><input type="checkbox" name="isTop" id="isTop<% = rs("ID") %>" value="1"<%if Cstr(rs("IsTop"))="1" then%> checked<%end if%>><label for="isTop<% = rs("ID") %>">置顶留言</label><input type="submit" value="回 复"> <input type="button" onclick="if(confirm('确定删除吗？')){document.HwForm<% = rs("ID") %>.act.value='del';document.HwForm<% = rs("ID") %>.submit();}" style="color:red;" value="删 除"></div></td>
</tr>
</form>
<%else%>
<tr>
	<td nowrap>留言内容：</td>
	<td><% = replace(server.htmlencode(rs("content")),vbnewline,"<br>") %></td>
</tr>
	<%if len(rs("reply")) > 0 then%>
<tr>
	<td>回　　复：</td>
	<td><% = replace(server.htmlencode(rs("reply")),vbnewline,"<br>") %></td>
</tr>
	<%end if%>
<%end if%>
</table>
		<%
				i=i+1
				if i>=MaxPerPage then exit do 
					rs.movenext
				loop
			end sub
		end if
		%>
	  </td>
	</tr>
	<tr>
	  <td width="100%" height="24" align="right" id="bottompage"><%showpages()%></td>
	</tr>
	<tr>
	  <td width="100%"><% logintable()%></td>
	</tr>
  </table>
</div>
<%
conn.close
set conn = nothing

Function NoJapn(byVal iStr)
	if isnull(iStr) or isEmpty(iStr) then
		NoJapn=""
		Exit function
	end if
	dim F
	F=array(chr(-23116),chr(-23124),chr(-23122),chr(-23120),chr(-23118),chr(-23114),chr(-23112),chr(-23110),chr(-23099),chr(-23097),chr(-23095),chr(-23075),chr(-23079),chr(-23081),chr(-23085),chr(-23087),chr(-23052),chr(-23076),chr(-23078),chr(-23082),chr(-23084),chr(-23088),chr(-23102),chr(-23104),chr(-23106),chr(-23108))
	NoJapn=iStr
	for i=0 to 25
		NoJapn=replace(NoJapn,F(i),"")
	next
End Function

function fixsql(str)
	dim newstr
	newstr = str
	if isnull(newstr) or len(newstr) = 0 then
		fixsql = newstr
		exit function
	end if
	newstr = Replace(newstr,"'","''")
	fixsql = newstr
end function

function isForbid(sip)
	dim Iplist,Iparr,Ipi
	Iplist = "|"& IpLists &"|"
	Iparr = split(Iplist,"|")
	for Ipi = 0 to ubound(Iparr)
		if len(Iparr(Ipi)) > 0 and instr("|" & sip,"|" & Iparr(Ipi)) > 0 then
			isForbid = true
			exit function
		end if
	next
	isForbid = false
end function

sub showpages()
pageurl = Request.ServerVariables("SCRIPT_NAME") & "?"
%>
<span id="PageZone"><%
if len(totalput) = 0 then
	totalput = 0
end if
if totalpages<2 then
	if int(totalpages) > 0 then
		response.write "共 "&totalput&" 条留言&nbsp;"
	end if
else
	dim Page_First,Page_Previous,Page_Next,Page_Last
	Page_First		= "首页"
	Page_Previous	= "前页"
	Page_Next		= "后页"
	Page_Last		= "尾页"
%>
>>
<%if int(currentPage) = 1 Then%>
	<span class="PageDisabled"><% = Page_First %></span> 
	<span class="PageDisabled" id="__PrevLink"><% = Page_Previous %></span> 
	<a href="<%=pageurl%>Page=<%=currentPage+1%>" id="__NextLink"><% = Page_Next %></a> 
	<a href="<%=pageurl%>Page=<%=totalpages%>"><% = Page_Last %></a> 
<%elseif int(currentPage) = int(totalpages) Then%>
	<a href="<%=pageurl%>"><% = Page_First %></a> 
	<a href="<%=pageurl%>Page=<%=currentPage-1%>" id="__PrevLink"><% = Page_Previous %></a> 
	<span class="PageDisabled" id="__NextLink"><% = Page_Next %></span> 
	<span class="PageDisabled"><% = Page_Last %></span> 
<%else%>
	<a href="<%=pageurl%>"><% = Page_First %></a> 
	<a href="<%=pageurl%>Page=<%=currentPage-1%>" id="__PrevLink"><% = Page_Previous %></a> 
	<a href="<%=pageurl%>Page=<%=currentPage+1%>" id="__NextLink"><% = Page_Next %></a> 
	<a href="<%=pageurl%>Page=<%=totalpages%>"><% = Page_Last %></a> 
<%end if%>
页次：<span class="PageNote"><%=currentPage%></span>/<%=totalpages%> 页 转到 <span id=divpage></span>&nbsp;页 共 <span class="PageNote"><%=totalput%></span>个留言&nbsp;
<SCRIPT LANGUAGE="JavaScript">var selected="";var arr = new Array(<%=totalpages%>);for (var i=1; i<<%=totalpages+1%>; i++){if (i==<%=currentPage%>){selected="selected";}else{selected="";}arr[i] = "<OPTION value='"+i+"' "+selected+">" + i + "</OPTION>";}document.getElementById("divpage").innerHTML = "<SELECT tabindex='1' class='hwPageSelect' onChange='javascript:location.href=\"<%=pageurl%>Page=\"+this.options[selectedIndex].value'>" + arr.join() + "</SELECT>";</SCRIPT>
<%end if%></span><%
end sub

function logintable()
%>
  <table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr>
	<form method="POST" name="login" action="<% = Request.ServerVariables("SCRIPT_NAME") %>">
      <td width="100%">
<%if session("islogin") = LoginPassWord then%>
	<p align="center"><a href="?action=loginout">退出管理</a></p>
<%elseif request("action") = "login" then%>
	<input type="hidden"  name="act" value="login">
	<p align="center">请输入密码：<input type="password" class="input" name="pws"size="20"> <input type="submit" value="登陆"> <a href="?">取消</a></p>
<%else%>
	<p align="center"><a href="?action=login#bottom">管理</a></p>
<%end if%>
      </td>
	  </form>
    </tr>
  </table>
<%end function%>
<a name="bottom" />
</body>
</html>