⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 xhrevise1.asp

📁 大家好
💻 ASP
字号:
<%@ LANGUAGE="VBSCRIPT"%>
<!-- #include file="../ADOVBS.INc" -->
<%
if request("page")="" then
	page=1
else
	page=request("page")
end if
fenlei=trim(request("select"))
biaoti=trim(request("xm"))
set conn=server.createobject("adodb.connection")
conn.open Application("DBCon_ConnectionString") 
set rs=server.createobject("adodb.recordset")
rs.LockType=adLockOptimistic
sqlstr="select * from xiaohua where fenlei='"& fenlei &"' and biaoti='"& biaoti &"' order by riqi desc"
'response.write sqlstr
'response.end
rs.open sqlstr,conn,adOpenStatic
if rs.eof then
	response.write "查无此笑话!<br>"
	response.write "<a href='../xhtj/xhtijiao.htm'>返回笑话提交...</a>"
else
rs.pagesize=1
rs.absolutepage=page

%>
<html>
<head>
<title>xiaohuatijiao</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language=javascript>
<!--
function check(){
	
		if (document.frmsend.xiaohua.value=="")
			alert("内容不能为空!")
		else {
				if (document.frmsend.xiaohua.value.length>600)
					alert("内容多于600字!")
				else
					document.frmsend.submit()
				}
	
}			
//-->
</script>
<link rel="stylesheet" href="/zhao/html/3508.css">
<style type="text/css">
<!--
.botton {  color: #006600; font-size: 12px}
-->
</style>
</head>

<body bgcolor="#fffffa">
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td width="217" align="middle" valign="bottom" rowspan="2"><IMG height=25 src="/zhao/images/smallmark.gif" width=120></td>
    <td colspan="2" valign="bottom" height="30">&nbsp;</td>
  </tr>
  <tr> 
    <td width="285" valign="bottom"><A href="/zhao/default.asp">本站首页</a> &gt;&gt;笑话天地</td>
    <td width="238" valign="bottom" align="right">&nbsp; </td>
  </tr>
  <tr> 
    <td colspan="3" bgcolor="#006600"></td>
  </tr>
  <tr valign="bottom"> 
    <td colspan="3">&nbsp; </td>
  </tr>
</table>
<h2 align="center"><font face="Times New Roman, Times, serif">修改笑话</font></h2>

<form method="post" action="/images/zhao/revise/xhrevise2.asp" name=frmsend>
  <table width="75%" border="0" cellpadding="0" cellspacing="0" align="center">
	<tr>
		<td><input type="hidden" name="id" value=<%=rs("id")%>></td>
	</tr>
    <tr> 
      <td width="11%" nowrap align="right"> 〖标题〗</td>
      <td width="89%"> 
        <input name="biaoti" maxLength=20 class="botton" value=<%=rs("biaoti")%>>
      </td>
    </tr>
    <tr> 
      <td width="11%" nowrap align="right">〖作者〗</td>
      <td width="89%"> 
        <input name="zuoze" maxLength=12 class="botton" value=<%=zuozexm%>>
      </td>
    </tr>
    <tr> 
      <td width="11%" nowrap align="right">〖笑话〗</td>
      <td width="89%">&nbsp;</td>
    </tr>
    <tr> 
      <td width="11%" nowrap>&nbsp;</td>
      <td width="89%">
        <TEXTAREA class=botton cols=60 name=xiaohua rows=8 style="BACKGROUND-COLOR: white" ><%=rs("neirong")%></TEXTAREA>
      </td>
    </tr>
  </table>

  <table width="75%" border="0" cellpadding="0" cellspacing="0" align="center">
    <tr align="right"> 
      <td colspan="3"> 
        <input type="button" value="提交" onClick="check()" style="BACKGROUND-COLOR: silver; HEIGHT: 24px; WIDTH: 61px" class="botton" name="button3">
        <input type="submit" value="删除" onClick="check()" style="BACKGROUND-COLOR: silver; HEIGHT: 24px; WIDTH: 61px" class="botton" name="button4">
      </td>
    </tr>
  </table>
</form>
<form method="post" action="/images/zhao/revise/xhrevise1.asp">
  <table width="80%" border="0" cellpadding="0" cellspacing="0">
              <%
if rs.pagecount>1 then
%> 
              <tr> 
                <td align="center" colspan="2"> <%if page>1 then%> 
                  <input type="button" value="首页"  onClick="window.location.href='xhrevise1.asp?select=<%=trim(request("select"))%>&page=1&zuozexm=<%=zuozexm%>'" name="button" class="botton1"   >
                  <input type="button" value="前页"  onClick="window.location.href='xhrevise1.asp?select=<%=trim(request("select"))%>&page=<%=(page-1)%>&zuozexm=<%=zuozexm%>%>'" name="button22" class="botton1">
                  <%
end if
if cint(page)<rs.pagecount then
%> 
                  <input type="button" value="后页"  onClick="window.location.href='xhrevise1.asp?select=<%=trim(request("select"))%>&page=<%=(page+1)%>&zuozexm=<%=zuozexm%>%>'" name="button23" class="botton1">
                  <input type="button" value="末页"  onClick="window.location.href='xhrevise1.asp?select=<%=trim(request("select"))%>&page=<%=(rs.pagecount)%>&zuozexm=<%=zuozexm%>%>'" name="button2" class="botton1" >
<%end if%> </td>
              </tr>
              <%
end if
%> 
           
 </table>
</form>

<!-- #include virtual="/zhao/include/end.htm"-->
</body>
</html>
<%
end if
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -