28,391
社区成员
发帖
与我相关
我的任务
分享为什么 head, vServer,vDbf, vSql 几个变量不能传到文本框里？
<%
Head="Table01.asp - RDS 与 TABLE 的结合"
vServer="http://" & Request.ServerVariables("Server_name")
vDbq=Server.MapPath("/source/mdb/stock01.mdb")
vSQL="Select * From 股票行情表 Where 股票代号 Like '600%'"
%>
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title><%=Head%></title>
</head>
<body bgcolor="#FFFFFF">
<h1><%=Head%></h1>
<hr>
<div align="center"><center>
<table border="0">
<tr>
<td align="right">Server:</td>
<td><input type="text" size="50" name="Server"
value=<%=Request.ServerVariables("Server_name")%>> </td>
</tr>
<tr>
<td align="right">数据库：</td>
<td><input type="text" size="50" name="Dbq"
value="<%=vDbq%>"> </td>
</tr>
<tr>
<td align="right">SQL:</td>
<td><input type="text" size="50" name="SQL"
value="<%=vSQL%>"> </td>
</tr>
<tr>
<td align="center" colspan="2"><input type="button"
value="打开数据库" onclick="OpenDB()"></td>
</tr>
</table>
</center></div>
<hr width="80%">
<div align="center"><center>
<table border="1" datasrc="#RDS1">
<THEAD> <tr>
<td bgcolor="#00FFFF">股票代号</td>
<td bgcolor="#00FFFF">股票名称</td>
<td bgcolor="#00FFFF">收盘价</td>
<td bgcolor="#00FFFF">涨跌</td>
<td bgcolor="#00FFFF">最高价</td>
<td bgcolor="#00FFFF">最低价</td>
<td bgcolor="#00FFFF">成交量</td>
</tr>
</THEAD><TBODY> <tr>
<td bgcolor="#FFFFFF"><DIV DataFld="股票代号"></DIV> </td>
<td bgcolor="#FFFFFF"><DIV DataFld="股票名称"> </td>
<td bgcolor="#FFFFFF"><DIV DataFld="收盘价"> </td>
<td bgcolor="#FFFFFF"><DIV DataFld="涨跌"> </td>
<td bgcolor="#FFFFFF"><DIV DataFld="最高价"> </td>
<td bgcolor="#FFFFFF"><DIV DataFld="最低价"> </td>
<td bgcolor="#FFFFFF"><DIV DataFld="成交量"> </td>
</tr>
</TBODY></table>
</center></div>
<p><object id="RDS1"
classid="ClsID:BD96C556-65A3-11D0-983A-00C04FC29E33"
align="baseline" border="0" width="50" height="50"></object></p>
<script language="VBScript">
Sub OpenDB()
RDS1.Server = Server.Value
RDS1.Connect = "driver={Microsoft Access Driver (*.mdb)}" & _
";dbq=" & Dbq.Value
RDS1.SQL = SQL.Value
RDS1.Refresh
End Sub
</script>
<hr>
</body>
</html>
Head="Table01.asp - RDS 与 TABLE 的结合"
vServer="http://" & Request.ServerVariables("Server_name")
vDbq=Server.MapPath("/source/mdb/stock01.mdb")
vSQL="Select * From 股票行情表 Where 股票代号 Like '600%'"
%>
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title><%=Head%></title>
</head>
<body bgcolor="#FFFFFF">
<h1><%=Head%></h1>
<hr>
<div align="center"><center>
<table border="0">
<tr>
<td align="right">Server:</td>
<td><input type="text" size="50" name="Server"
value=<%=Request.ServerVariables("Server_name")%>> </td>
</tr>
<tr>
<td align="right">数据库：</td>
<td><input type="text" size="50" name="Dbq"
value="<%=vDbq%>"> </td>
</tr>
<tr>
<td align="right">SQL:</td>
<td><input type="text" size="50" name="SQL"
value="<%=vSQL%>"> </td>
</tr>
<tr>
<td align="center" colspan="2"><input type="button"
value="打开数据库" onclick="OpenDB()"></td>
</tr>
</table>
</center></div>
<hr width="80%">
<div align="center"><center>
<table border="1" datasrc="#RDS1">
<THEAD> <tr>
<td bgcolor="#00FFFF">股票代号</td>
<td bgcolor="#00FFFF">股票名称</td>
<td bgcolor="#00FFFF">收盘价</td>
<td bgcolor="#00FFFF">涨跌</td>
<td bgcolor="#00FFFF">最高价</td>
<td bgcolor="#00FFFF">最低价</td>
<td bgcolor="#00FFFF">成交量</td>
</tr>
</THEAD><TBODY> <tr>
<td bgcolor="#FFFFFF"><DIV DataFld="股票代号"></DIV> </td>
<td bgcolor="#FFFFFF"><DIV DataFld="股票名称"> </td>
<td bgcolor="#FFFFFF"><DIV DataFld="收盘价"> </td>
<td bgcolor="#FFFFFF"><DIV DataFld="涨跌"> </td>
<td bgcolor="#FFFFFF"><DIV DataFld="最高价"> </td>
<td bgcolor="#FFFFFF"><DIV DataFld="最低价"> </td>
<td bgcolor="#FFFFFF"><DIV DataFld="成交量"> </td>
</tr>
</TBODY></table>
</center></div>
<p><object id="RDS1"
classid="ClsID:BD96C556-65A3-11D0-983A-00C04FC29E33"
align="baseline" border="0" width="50" height="50"></object></p>
<script language="VBScript">
Sub OpenDB()
RDS1.Server = Server.Value
RDS1.Connect = "driver={Microsoft Access Driver (*.mdb)}" & _
";dbq=" & Dbq.Value
RDS1.SQL = SQL.Value
RDS1.Refresh
End Sub
</script>
<hr>
</body>
</html>
...全文
请发表友善的回复…
发表回复
bc3 2003-12-22
- 打赏
- 举报
why
qxg1123 2003-12-21
- 打赏
- 举报
<%=server.htmlencode(vserver)%>
bc3 2003-12-21
- 打赏
- 举报
有显示<%=vServer%>
<%=vDbq%>
<%=vSQL%>
是iis
<%=vDbq%>
<%=vSQL%>
是iis
possible_Y 2003-12-21
- 打赏
- 举报
那你的文本框中有显示吗？
用了iis吗？
用了iis吗？
bc3 2003-12-21
- 打赏
- 举报
急啊！！
梦幻飞鱼gz 2003-12-19
- 打赏
- 举报
1、文件头加上一句
<%@ Language=VBScript%>
2、定义变量的地方
<%
...
%>
改成
<script language="VBScript" runat="server">
...
</script>
试试看
<%@ Language=VBScript%>
2、定义变量的地方
<%
...
%>
改成
<script language="VBScript" runat="server">
...
</script>
试试看
bc3 2003-12-19
- 打赏
- 举报
我在其他机上也是不行，不能把变量附到文本框中
bc3 2003-12-19
- 打赏
- 举报
还是不行！难道是我的ie那里设置没设好
troopers 2003-12-19
- 打赏
- 举报
你屏蔽掉vserver
看head。vdbq,vsql能不能显示。
看head。vdbq,vsql能不能显示。
troopers 2003-12-19
- 打赏
- 举报
我在本机调试过的。可能是你的浏览器里里某些设置改变了。或者怎么样。
bc3 2003-12-19
- 打赏
- 举报
还是不行
troopers 2003-12-19
- 打赏
- 举报
<script language="VBScript">
Sub OpenDB()
RDS1.Server = Server.Value
RDS1.Connect = "driver={Microsoft Access Driver (*.mdb)}" & _
";dbq=" & Dbq.Value
RDS1.SQL = SQL.Value
RDS1.Refresh
End Sub
</script>
有问题吧
不要这段。你的数据就可以显示了
Sub OpenDB()
RDS1.Server = Server.Value
RDS1.Connect = "driver={Microsoft Access Driver (*.mdb)}" & _
";dbq=" & Dbq.Value
RDS1.SQL = SQL.Value
RDS1.Refresh
End Sub
</script>
有问题吧
不要这段。你的数据就可以显示了
bc3 2003-12-19
- 打赏
- 举报
急啊！！！！！！！！！
bc3 2003-12-19
- 打赏
- 举报
还是不行，？？？？？？？？？？？？？
