<!--#include file="conn.asp"-->
<!--#include file="inc/cookies_check.asp"-->
<%
'*****************************************
'* 软件名称 乐彼网上开店软件(56770 EShop)
'* 软件开发 http://www.56770.com
'* 版权所有 http://www.56770.com
'* 文件名称 Admin_sql.asp
'* 最后更新 2010-09-19 by 56770.kingdge
'*****************************************
Dim admin_flag
admin_flag=",10.1,"
include "lang/"& LangFilePath &"/lang_sys.inc"
include "lang/"& LangFilePath &"/lang_menu.inc"
include "lang/"& LangFilePath &"/lang_sql.inc"
CurrentId = 0
CurrentUrl = "admin_sql.asp"
LB_Head()
LB_Menu()
Response.Write("<div class=""mainbody"">")
Response.Write("<div class=""mainbody2"">")
If Eshop_Lebi_name="" Or instr(","&Eshop_Lebi_flag&",",admin_flag)=0 Then
		adminflag()
End If
If OutSubmit = 1 Then CheckOutSubmit()
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="sql" class="classtable">
<Form Name="FormPst" Method="Post" Action="admin_sql.asp">
<tr>
	<td height="30" class="classhead"><input name="submit" type="image" src="lang/<%=LangFilePath%>/images/bt_app.gif" value=" <%=Lang_sys(1)%> " title=" <%=Lang_sys(1)%> " align="absmiddle">&nbsp;<input type="image" src="lang/<%=LangFilePath%>/images/bt_res.gif" border="0" title=" <%=Lang_sys(2)%> " onclick="reset();return false;" align="absmiddle">
	<input type="hidden" name="IS_UP" value="1">
	</td>
	<td align="right" class="classhead">
	<%=QuickMenu("admin_language.asp|"& Lang_Menu(149) &"","admin_log.asp|"& Lang_Menu(151) &"")%>
	</td>
 </tr>
<tr>
   <td colspan="2" class="classtop" height="30"><%=Lang_Menu(150)%></td>
</tr>
<tr class="classtd">
<td height="30" width="15%" class="classtd"><%=Lang_Sql(1)%></td>
<td height="30" width="85%" class="classtd"><Input type="text" name="SQL_Statement" Size=80 class="form"></td>
</tr>
</Form>
<%
if request("IS_UP") = "1" Then
If OnlyRead = 1 Then OnlyReadMessage()
%>
<tr class="classtd">
<td height="30" colspan="2" class="classtd">
<%
SQL_Statement=Request("SQL_Statement")
if SQL_Statement<>Empty then
On Error Resume Next
conn.Execute(SQL_Statement)
if err.number="0" Then
response.write "<font color=red>"& Lang_Sql(2) &"</font>"
else
response.write Lang_Sql(3) &"<br /><font color=red>"&Err.Description &"</font>"
err.clear
end If
ManageLog Lang_Sql(4) &" ["&SQL_Statement&"]"
end If
%>
</td>
</tr>
<%End If%>
<tr>
<td colspan="2" class="classfaq">
  <div class="faq_main">
  <p class="faq_title"><%=Lang_sys(49)%></p>
  <%=Lang_Sql(5)%>
  </div>
</td>
</tr>
</table>
<script>tdshow("sql");</script>
</div>
</div>
<%LB_Footer()%>