admin_sql.asp

蓝色WAP建站系统,WAP源码,更多请登陆http://xywap.cn

<%
'==================================
'=文 件 名：admin_sql.asp
'=适用版本：游戏天府WAP网站管理系统(CMS)V1.1
'=官方版权：http://www.gotf.cn
'=文件功能：SQL执行管理
'=文件作者：游戏天府
'=发行时间：2007-02-01
'==================================
%>
<!--#include file="wapls_admin_conn.asp"-->
<!--#include file="wapls_admin_top.asp"-->
<%
if session("wapls_adminlogin")<>wapls_sessionvar then	
	errmsg="您没有登陆或不是管理员。请登陆。"
response.write "<script>window.alert('"&errmsg&"');window.location='admin_login.asp';</script>"
	response.End
elseif cur_adminsuper<>1 then
	errmsg=""&cur_adminname&"，您不是超级管理员，没有权限进行此操作！"
response.write "<script>window.alert('"&errmsg&"');window.location='javascript:history.go(-1);';</script>"
	response.End
end if
Dim SQL_Statement,RecordsAffected,RetRs,oField,Page_Count,TotalRec,i,abgcolor,CurPage,PCount,EndPage
%>
<table cellspacing="1" cellpadding="4" align="center" class="tableborder" align="center">
	<tr class="tablebody">
		<td class="td_title" align="center">SQL语句执行操作</td>
	</tr>
	<tr class="tablebody">
		<td style="line-height:200%;">
		<span class="current_font">使用注意：</span><br>
		①、本操作仅限高级、对SQL编程比较熟悉的用户！<br>
		②、您可以直接输入SQL执行语句，比如<span class="current_font">select * from wapls_link</span>，查询友情链接信息。<br>
		③、<font color="blue">在操作前请慎重考虑您的执行语句是否正确和完整，执行后不可恢复。</font><br>
		<span class="current_font">常用SQL语句示例：</span><br>
		数据记录筛选：select * from 数据表 [ where 字段名=字段值 order by 字段名 ]<br>
		更新数据记录：update 数据表 set 字段名1=字段值1,……字段名n=字段值n [where 条件表达式]<br>
		删除数据记录：delete from 数据表 [where 条件表达式]<br>
		添加数据记录：insert into 数据表 (字段1，字段2，字段3……) value (值1，值2，值3……)
		</td>
	</tr>
<%
	If Request("action") = "sql_done" Then
		SQL_Statement=Request("SQL_Statement")
		If SQL_Statement<>"" then
			On Error Resume Next
			Server.ScriptTimeOut=999999
			Set RetRs=Conn.Execute(SQL_Statement,RecordsAffected)
			If Err.number="0" then
				On Error Goto 0
				Response.write "<tr class=tablebody><td class=td_title colspan=2>SQL语句执行结果</td></tr><tr class=tablebody><td align=center colspan=2 height=100>"
				If RetRs.State=0 Then
					If RecordsAffected>0 Then
						Response.write "<span class=current_font>执行成功，共有 "&RecordsAffected&" 条记录被处理。<span><br><br>[ <a href=# onclick=history.go(-1)>返回上一页</a> ]</td></tr></Table>"
					Else
						Response.write "执行成功，没有任何记录被处理。<br><br>[ <a href=# onclick=history.go(-1)>返回上一页</a> ]</td></tr></Table>"
					End If
				Else
					RetRs.Close
					RetRs.Open SQL_Statement,Conn,1,1
					If RetRs.Bof And RetRs.Eof Then
						Response.write "执行成功，没有任何记录被返回。<br><br>[ <a href=# onclick=history.go(-1)>返回上一页</a> ]</td></tr></Table>"
					Else
						CurPage=request("page")
						If CurPage="" or not IsNumeric(CurPage) Then
							CurPage=1
						Else
							CurPage=CLng(CurPage)
						End If
						'删除语句
						If RetRs.RecordCount>0 Then
							RetRs.AbsolutePage=CurPage
							Page_Count=0
							TotalRec=RetRs.RecordCount
							Response.write "<span class=current_font>执行成功，共返回 "&TotalRec&" 条记录。</span><br><br>[ <a href=# onclick=history.go(-1)>返回上一页</a> ]</td></tr></Table>"
							Response.Write "<br><table cellspacing=""1"" cellpadding=""4"" align=""center"" class=""tableborder"" align=""center""><tr class=tablebody>"
							For Each oField In RetRs.Fields
								Response.Write "<Td class=td_title>" & oField.Name &"</Td>"
							Next
							Do While (not RetRs.eof) And (not Page_Count = Cint(RetRs.PageSize))
								Response.Write "<tr class=tablebody>"
								If Page_Count mod 2 = 0 Then
									abgcolor="ForumRow"
								Else
									abgcolor="ForumRowHilight"
								End If
								For i=0 To RetRs.Fields.Count-1
									Response.write "<td class="&abgcolor&">"
									If IsNull(RetRs(i)) Then
										Response.Write ""
									Else
										Response.Write Server.HTMLEncode(RetRs(i))
									End If
									Response.write "</td>"
								Next
								Response.Write "</tr>"
								Page_count = Page_Count + 1
								RetRs.MoveNext
							Loop
							Response.Write "<tr class=tablebody><td colspan="&RetRs.Fields.Count&" class=forumrow align=align>分页："
							Pcount=RetRs.PageCount
							If CurPage > 4 Then
								Response.write "<a href=""?page=1&action=sql_done&sql_statement="&SQL_Statement&""">[1]</a> ..."
							End If
							If PCount>CurPage+3 Then
								EndPage=CurPage+3
							Else
								EndPage=PCount
							End If
							For i=CurPage-3 To EndPage
								If i>=1 Then
									If i = CLng(CurPage) Then
										Response.write " <font color=red>["&i&"]</font>"
									Else
										Response.write " <a href=""?page="&i&"&action=sql_done&sql_statement="&SQL_Statement&""">["&i&"]</a>"
									End If
								End If
							Next
							If CurPage+3 < PCount Then 
								Response.write "... <a href=""?page="&PCount&"&action=sql_done&sql_statement="&SQL_Statement&""">["&PCount&"]</a>"
							End If
						Else
							Response.write "执行成功，返回如下记录：<br><br>[ <a href=# onclick=history.go(-1)>返回上一页</a> ]</td></tr></Table>"
							Response.Write "<br><table width=95% border='0' cellspacing='1' cellpadding='3' align=center Class=TableBorder><tr class=tablebody>"
							For Each oField In RetRs.Fields
								If oField.Name<>"" Then
									Response.Write "<Th>" & oField.Name &"</Th>"
								Else
									Response.Write "<Td class=td_title>执行结果：</Td>"
								End If
							Next
							Do While not RetRs.eof
								Response.Write "<tr class=tablebody>"
								If Page_Count mod 2 = 0 Then
									abgcolor="ForumRow"
								Else
									abgcolor="ForumRowHilight"
								End If
								For i=0 To RetRs.Fields.Count-1
									Response.write "<td class="&abgcolor&">"
									If IsNull(RetRs(i)) Then
										Response.Write ""
									Else
										Response.Write RetRs(i)
									End If
									Response.write "</td>"
								Next
								Response.Write "</tr>"
								RetRs.MoveNext
							Loop
						End If
						Response.Write "</table></td></tr></Table>"
					End If
					RetRs.Close
				End If
			Else
				Response.write "<tr class=tablebody><td class=td_title colspan=2>执行结果</td></tr><tr class=tablebody><td align=center colspan=2>SQL语句有问题，具体错误信息如下：<br>"&Err.Description&"<br><br>[ <a href=# onclick=history.go(-1)>返回上一页</a> ]</td></tr></Table>"
				Err.clear
			End if
			On Error Goto 0
			Set RetRs=Nothing
		End If
	Else
%>
	<tr class="tablebody">
		<td class="td_title" colspan="2">请输入SQL语句</td>
	</tr>
	<Form Name="SQLForm" Method="Post" Action="?action=sql_done">
	<tr class="tablebody">
		<td align="center" colspan="2" height="100">
		<FieldSet>
		<Legend>请输入SQL语句</Legend>
		指令：<Input type="text" name="SQL_Statement" Size="60"><br>
		<Input type="Submit" Value=" 执  行 ">
		</FieldSet>
		</td>
	</tr>
	</Form>
</Table>
<%End If%>
<!--#include file="wapls_admin_bottom.asp"-->