28,406
社区成员
发帖
与我相关
我的任务
分享大家帮忙看看 我这句话错哪了？高手们
<HTML>
<HEAD><TITLE>读取表单数据</TITLE></HEAD>
<BODY>
<%
Function ReplaceBr(ByVal MyStr)
ReplaceBr = Replace(MyStr, Chr(13), "<BR>")
End Function
%>
员工号：<%=Request("T1")%> <BR>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="driver={SQL Server};server=(local);UID=sa;PWD=1203;Database=人力资源管理"
Conn.Open
Set rs=Server.CreateObject("ADODB.Recordset")
Set rs.ActiveConnection = Conn
rs.CursorType = 3
*****错的句子********
rs.Open "SELECT * FROM Imformationperson where Ipersonnumber=&Request("T1") "
****错的句子****
%>
<h2 align="center">显示表Goods的记录</h2>
<table border="1" width="50%">
<tr> <td bgcolor="#C0C0C0"> 员工号 </td> <td bgcolor="#C0C0C0"> 员工名字 </td>
<td bgcolor="#C0C0C0"> 职位号 </td>
</tr>
<%
Do While rs.EOF = False
'在表格中显示字段属性
Response.Write("<tr> <td> " & rs.Fields(0).Value & _
"</td> <td>" & CStr(rs.Fields(1).Value) & "</td> <td>" & CStr(rs.Fields(2).Value) & "</td><td>" &
CStr(rs.Fields(3).Value) & "</td><td>" & CStr(rs.Fields(4).Value) & "</td><td>" & CStr(rs.Fields(5).Value) & "</td><td>" &
CStr(rs.Fields(6).Value) & "</td><td>" & CStr(rs.Fields(7).Value) & "</td></tr>")
rs.MoveNext
Loop
Response.Write("</table>")
'断开与数据库的连接
Conn.Close
If Conn.State = 0 Then
End If
'释放Connection对象，关闭数据库
Set Conn = nothing
%>
</BODY>
</BODY>
</HTML>
<HEAD><TITLE>读取表单数据</TITLE></HEAD>
<BODY>
<%
Function ReplaceBr(ByVal MyStr)
ReplaceBr = Replace(MyStr, Chr(13), "<BR>")
End Function
%>
员工号：<%=Request("T1")%> <BR>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="driver={SQL Server};server=(local);UID=sa;PWD=1203;Database=人力资源管理"
Conn.Open
Set rs=Server.CreateObject("ADODB.Recordset")
Set rs.ActiveConnection = Conn
rs.CursorType = 3
*****错的句子********
rs.Open "SELECT * FROM Imformationperson where Ipersonnumber=&Request("T1") "
****错的句子****
%>
<h2 align="center">显示表Goods的记录</h2>
<table border="1" width="50%">
<tr> <td bgcolor="#C0C0C0"> 员工号 </td> <td bgcolor="#C0C0C0"> 员工名字 </td>
<td bgcolor="#C0C0C0"> 职位号 </td>
</tr>
<%
Do While rs.EOF = False
'在表格中显示字段属性
Response.Write("<tr> <td> " & rs.Fields(0).Value & _
"</td> <td>" & CStr(rs.Fields(1).Value) & "</td> <td>" & CStr(rs.Fields(2).Value) & "</td><td>" &
CStr(rs.Fields(3).Value) & "</td><td>" & CStr(rs.Fields(4).Value) & "</td><td>" & CStr(rs.Fields(5).Value) & "</td><td>" &
CStr(rs.Fields(6).Value) & "</td><td>" & CStr(rs.Fields(7).Value) & "</td></tr>")
rs.MoveNext
Loop
Response.Write("</table>")
'断开与数据库的连接
Conn.Close
If Conn.State = 0 Then
End If
'释放Connection对象，关闭数据库
Set Conn = nothing
%>
</BODY>
</BODY>
</HTML>
...全文
请发表友善的回复…
发表回复
woshihuzi 2005-04-29
- 打赏
- 举报
错误信息是什么呀？别人有没有你的数据库，没法给你试验啊？
cncca 2005-04-29
- 打赏
- 举报
如果Ipersonnumber不是字符型：
rs.Open "SELECT * FROM Imformationperson where Ipersonnumber="&Request("T1")
如果是字符型：
rs.Open "SELECT * FROM Imformationperson where Ipersonnumber='"&Request("T1")&"'"
rs.Open "SELECT * FROM Imformationperson where Ipersonnumber="&Request("T1")
如果是字符型：
rs.Open "SELECT * FROM Imformationperson where Ipersonnumber='"&Request("T1")&"'"
Accelerator 2005-04-29
- 打赏
- 举报
*****错的句子********
rs.Open "SELECT * FROM Imformationperson where Ipersonnumber=&Request("T1") "
****错的句子****
就是这里，怎么你知道还问？引号打错了
rs.Open "SELECT * FROM Imformationperson where Ipersonnumber=&Request("T1") "
****错的句子****
就是这里，怎么你知道还问？引号打错了
