记录集的代码问题
页面的源代码如下
<%@LANGUAGE= "VBSCRIPT " CODEPAGE= "936 "%>
<!--#include file= "../Connections/test.asp " -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1 "
If (Session( "MM_user ") <> " ") Then
Recordset1__MMColParam = Session( "MM_user ")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject( "ADODB.Recordset ")
Recordset1.ActiveConnection = MM_test_STRING
Recordset1.Source = "SELECT nameid, phone, address, email, info FROM dbo.studentinfo WHERE nameid = ' " + Replace(Recordset1__MMColParam, " ' ", " ' ' ") + " ' "
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN " "http://www.w3.org/TR/html4/loose.dtd ">
<html>
<head>
<meta http-equiv= "Content-Type " content= "text/html; charset=gb2312 ">
<title> 信息控制面板 </title>
<style type= "text/css ">
<!--
.style1 {
font-size: 24px;
font-weight: bold;
font-family: "隶书 ";
}
-->
</style>
</head>
<body>
<form name= "form1 " method= "post " action= " ">
<table width= "100% " height= "239 " border= "1 ">
<tr>
<td width= "38% " rowspan= "6 "> </td>
<td width= "20% "> <div align= "center "> 您的用户名是 </div> </td>
<td width= "42% "> <div align= "center ">
<input name= "txtnamefield " type= "text " id= "txtnamefield " value= " <%=(Recordset1.Fields.Item( "nameid ").Value)%> ">
</div> </td>
</tr>
<tr>
<td> <div align= "center "> 联系电话 </div> </td>
<td> <div align= "center ">
<input name= "phfield " type= "text " id= "phfield " value= " <%=(Recordset1.Fields.Item( "phone ").Value)%> ">
</div> </td&