📄 research.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>浏阳市国家税务局</title>
<link href="images/style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
.style3 {color: #000000}
.style5 {color: #999999}
-->
</style></head>
<!--#include file="conn.asp"-->
<!--#include file="inc/top.asp"-->
<!--#include file="inc/leftmenu.asp"-->
<!--#include file="./inc/const.asp"-->
<!--#include file="./inc/char.asp"-->
<body>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><%call top()%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="21%" valign="top" background="images/guoshuei1_06.jpg"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<%call jsonlinemenu()%>
</td>
</tr>
</table></td>
<td width="80%" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="541" align="left"><img src="images/t4_04.jpg" width="607" height="44" alt=""></td>
<td align="left"></td>
</tr>
<tr>
<td width="541" align="left" valign="top">
<%
if request("action") = "searchresult" then
call searchresult()
else
call research()
end if
%>
</td>
<td align="left"></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="12"></td>
</tr>
</table></td>
</tr>
<%call foot()%>
</table>
</body>
</html>
<%sub searchresult()%>
<%if request("username")="" then%>
<script language=javascript>
alert( "错误：请输入帐号！" );
location.href = "javascript:history.back()"
</script>
<%elseif request("userpwd")="" then%>
<script language=javascript>
alert( "错误：请输入密码！" );
location.href = "javascript:history.back()"
</script>
<%else%>
<%
username=trim(replace(request("username"),"'",""))
userpwd=trim(Request.Form("userpwd"))
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From jbmsg where msguserid='" &username&"'", conn, 3,3
%>
<%if rs.bof then %>
<script language=javascript>
alert( "错误：此用户名不存在！" );
location.href = "javascript:history.back()"
</script>
<%elseif userpwd<>rs("msgpassword") then%>
<script language=javascript>
alert("错误：您的密码不正确！");
location.href = "javascript:history.back()"
</script>
<%else%>
<%call msglist()%>
<%end if%>
<%end if%>
<%end sub%>
<%sub research()%>
<form name="form1" action="research.asp?action=searchresult" method="post">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="top" background="images/1-2_10.jpg"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="60"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="151"></td>
<td width="230" height="130" valign="top"><div align="justify">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/lo_11.jpg" width="230" height="62" alt=""></td>
</tr>
<tr>
<td width="230" height="68" align="center" valign="top" background="images/lo2_13.jpg"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr align="center" valign="middle">
<td width="37%" align="right"><span class="name">账号：</span> </td>
<td width="31%" align="left"><input name=username class=name id="username"
style="padding:0; border:1px solid #CCCCCC; background-color: #FFFFFF; font-family:Arial; font-size:9pt; line-height:100%"
size=8 maxlength="12"
></td>
<td width="18%" rowspan="2" align="right">
<span class="time"><input name="imageField" type="image" src="images/lo_14.jpg" alt="" width="38" height="38" border="0"></span>
</td>
<td width="14%" rowspan="2" align="left"> </td>
</tr>
<tr align="center" valign="middle">
<td align="right"><span class="name">密码：</span> </td>
<td align="left"><input name=userpwd
type=password class=name id="userpwd" style="padding:0; border:1px solid #CCCCCC; background-color: #FFFFFF; font-family:Arial; font-size:9pt; line-height:100%" size=8 maxlength="12"></td>
</tr>
<tr align="center">
<td colspan="4" class="time"> </td>
</tr>
</table></td>
</tr>
</table>
</div></td>
<td width="160"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="20"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><img src="images/lo_15.jpg" width="278" height="48" alt=""></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="60"></td>
</tr>
</table></td>
</tr>
<tr>
<td width="541" height="7" valign="top" background="images/1-2_10.jpg"></td>
</tr>
</table>
<%end sub%>
<%sub msglist()%>
<table width="100%" cellspacing="1" cellpadding="3" bgcolor="#999999" align="center">
<%
dim pagecount,page,Spage,Epage,recordcount,i
page = request.querystring("page")
if page = "" or IsNull(page) then page = 1
if not IsNumeric(page) then page = 1
page = Cint(page)
set rs = server.CreateObject ("Adodb.recordset")
sql = "select * from jbmsg order by msgid desc"
rs.open sql,conn,1,1
recordcount = RS.RecordCount
RS.PageSize = PAGESIZE
pagecount = RS.PageCount
if page < 1 then
page = 1
elseif page > pagecount then
page = pagecount
end if
if RS.EOF then%>
<tr bgcolor="#ffffff" height=20><td colspan="4" ><center><font color=#cc0000>目前还没有任何留言！</font> 请[<a href=jbonline.asp>点击这里</a>]发表投诉</td></tr></table>
<%else%>
<tr bgcolor="#ffffff" height=25><td colspan="4" >【<a href=jbonline.asp><font color=#cc0000>继续发表投诉举报</font></a>】</td></tr>
<%if recordcount > 0 then RS.AbsolutePage = page
for i = 1 to PAGESIZE
if RS.EOF then exit for%>
<tr bgcolor="#dddddd"><td width=3%><center>内容</td><td><b><%=rs("msgContent")%></b> (<%=rs("addDate")%>)</td></tr>
<tr bgcolor=#f8f8f8><td>回复</td><td class=b><br><%=ubbcode(rs("msgrecall"))%><br></td>
<%
RS.MoveNext()
next
end if
%>
</table>
<%
if pagecount > 0 then
response.write("<table width=""95%"" align=center cellspacing=3 cellpadding=3><tr><td align=right>")
response.write("页次：<font color=red><b>" & page & "</font>/" & pagecount & "</b> 每页<b>" & pagesize & "</b> 共<b>" & recordcount & "</b>条留言 分页：")
Spage = page mod PARTSIZE
if page > PARTSIZE then
if Spage = 0 then Spage = PARTSIZE
Spage = page - Spage + 1
else
Spage = 1
end if
Epage = Spage + PARTSIZE - 1
if Epage > pagecount then Epage = pagecount
if page > PARTSIZE then
response.write("<a href=""research.asp?page=" & Spage - 1 & """>[<<]</a>")
end if
for i = Spage to Epage
if i = page then
response.write("[<font color=red><b>" & i & "</b></font>]")
else
response.write("[<a href=""research.asp?page=" & i & """>" & i & "</a>]")
end if
next
if Epage < pagecount then
response.write("<a href=""research.asp?page=" & Epage + 1 & """>[>>]</a>")
end if
if Spage <> 1 then response.write("[<a href=""research.asp?page=1"">首页</a>]")
if Epage <> pagecount then response.write("[<a href=""research.asp?&page=" & pagecount & """>尾页</a>]")
response.write("</td></tr></table><br>")
end if
rs.close
set rs=nothing%>
<%end sub%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -