📄 sitedb.asp

📁 企业办公简单管理系统,可以发布信息以及论坛
💻 ASP
字号:
<!-- #include file="conn/logors.asp" -->

<html>
<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=site_title%></title>
</head>
<%=styletext%>

<DIV class=menuskin id=popmenu 
onmouseover="clearhidemenu();highlightmenu(event,'on')" style="Z-INDEX: 100" 
onmouseout="highlightmenu(event,'off');dynamichide(event)"></DIV><!--顶部表格-->

<SCRIPT language=JavaScript src="style/main.js"></SCRIPT>


<body>
<table width="750" height="100" align="center">
  <tr>
    <td class=TableTitle2 height="97">
	  <!-- #include file="sitehead.asp" -->
	</td>
  </tr>
  <tr>
    <td height="50" valign="top">
	<% navigation_flag=6 %>
	<!-- #include file="func_navigationbar.asp" -->

<script language="JavaScript" type="text/JavaScript">
<!--
	function MM_jumpMenu(targ,selObj,restore)
	{ //v3.0
	  	eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
	  	if (restore) selObj.selectedIndex=0;
	}
	function DoSubmit()
	{
		pageform.submit();
	}
//-->
</script>
<%
	
	if request("saveflag")="1" then
		sql=trim(request("sql"))
		if mid(sql,1,6)<>"select" then
			connobj.execute(sql)
			response.write "执行成功!"
		else
			set rs = Server.CreateObject("ADODB.Recordset")
			rs.open sql,connobj,1,1
			if rs.eof then
				response.write "执行成功!"
			else 
				response.Write("<table width=""100%"" cellpadding=1 cellspacing=1 class=tableborder1>")
				page_size = 20
				Rs.pagesize = page_size
				page_count = Rs.pagecount
				sumcount=rs.RecordCount
				Page = Request("page")
				If Isnull(Page) or (Not Isnumeric(Page)) Then
					aPage = 1
				Else
					aPage = Cint(page)
					If aPage < 1 Then
						aPage = 1
					ElseIf aPage > Cint(page_count) Then
						aPage = page_count
					End If
				End If
			
				
				Rs.Absolutepage = aPage
				Ars = Rs.Getrows(page_size)
				colnums=Ubound(Ars,1)
				For i = 0 To Ubound(Ars,2)
					response.Write("<tr>")
					for j=0 to colnums
						response.Write("<td class=tablebody1>" & Ars(j,i) & "</td>")
					next
					response.Write("</tr>")
				next
			
			  response.Write("</table>")
			  
			 end if 
			 rs.close
		end if
  end if
%>             
<form name="pageform" method="post" action="">
<%
	If sumcount > 0 Then
    	response.Write "[共有" & sumcount & "条记录 页: " & aPage & "/" & page_count & "]"
		'MM_jumpMenu('parent',this,0)
%><input name=sql type=hidden value="<%=sql%>">
<input name=saveflag type=hidden value="1">

跳到
<select name="page" onChange="DoSubmit()">
<%
		For i = 1 to page_count
			If i = aPage Then			
%>
				<option value=<% = i %> selected><% = i %></option>
<%
			else
%>
			<option value=<% = i %>><% = i %></option>
<%
			End If
		Next
%>
</select>页

<%
	end if
%>
</form>


<form method="post" action="">
<table width="100%">
<tr>
<th align="center" height=30> <b>数据库SQL语句</b></th>
</tr>
  <TR> 
      <TD> 请输入操作数据库的sql语句: 
        <input type="submit" name="Submit" value="执行"><input type=reset value="清 除" name=Submit2> 
        <input name=saveflag type="hidden" id="saveflag" value="1"> </TD>
    </tr>
  <tr>
  <TD align="center" class=tablebody1> <textarea name="sql" cols="140" rows="10"><%=request("sql")%></textarea></TD>
  </TR>
  </table> 
  </form> 
  
 




	</td>
  </tr>
  <tr>
    <td>
	  <!-- #include file="sitefloor.asp" -->    </td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

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