<!--#include virtual="/incs/config.asp" -->
<%
chk_log_usr()

dbname=SafeRequest("dbname")
sq_prcstr=(SafeRequest("sq_prcstr"))
years=clng(SafeRequest("years"))
sqnme=dbname
if dbname=""  then
		      call errorpage(-2,"对不起,参数错误!")
end if
if  chk_int(years)=false then
		      call errorpage(-2,"对不起,参数错误!")
end if
conn.open constr

query="select * from v_sqllst where sq_nme='"&dbname&"' and sq_unme='"&session("usrname")&"'"
rs.open query,conn,1,1
if rs.recordcount<>1 then
     call errorpage(-2,"对不起，该数据库不存在或者您无权操作！...")
elseif cint(rs("sq_regstt"))=0 then
     call errorpage(-2,"对不起，该数据库还没有开通！...")
elseif cint(rs("sq_regtpe"))<>0 then
     call errorpage(-2,"对不起，数据库类型不正确！...")
end if
sqid=rs("sq_id")
rs.close

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''表单处理 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''表单处理 
   substrContent = "entryclass:sql_odr"&Vend
   substrContent =substrContent& "entrytype:trypay"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent& "agentpass:"&agentpass&Vend
   substrContent = substrContent & "dbname:" &dbname& Vend
   substrContent = substrContent & "years:"& years& Vend
   substrContent = substrContent & "sq_prcstr:"& sq_prcstr& Vend
   substrContent = substrContent & "." & Vend
   doresult = hzsocket(substrContent)
   left5=left(doresult,5)
   If left5= "10000" Then
      call okpage( "/control/sql_mng/sql_idx.asp?sqnme=" & sqnme)
   Else
      call errorpage(-2,doresult)
   end if


%>