list.asp

来自「vb+sql server开发的旧点管理系统。具体配置文档内有说明」· ASP 代码 · 共 61 行

<%
	dim CID
	dim mysql

	CID=request.querystring("MYid")
	
	mysql="select * from client where uid="&cid


	set cn=Server.CreateObject("ADODB.Connection")
	set rs=Server.CreateObject("ADODB.Recordset")
	cn.connectionstring="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=sa;Initial Catalog=hotel;Data Source=."
	cn.Open
	rs.open MySql,cn,1,3


%>
<br><br><br><br><br><br>
<table border=1>
<tr>
	<TD>客户号</TD>
	<td>姓名</td>
	<td>性别</td>
	<td>证件类型</td>
	<td>证件号</td>
	<td>电话</td>
	<td>E_mail</td>
	<td>邮编</td>
	<td>地址</td>
	<td>会员</td>
	<td>信誉</td>
	<td>消费总金额</td>
	<td>备注</td>
</tr>
<tr>
	<td><input type=text value=<%=rs(1)%> size=20 maxlength=20></td>
	<td><input type=text value=<%=rs(2)%> size=20 maxlength=20></td>
	<td><input type=text value=<%=rs(3)%> size=20 maxlength=20></td>
	<td><input type=text value=<%=rs(4)%> size=20 maxlength=20></td>
	<td><input type=text value=<%=rs(5)%> size=20 maxlength=20></td>
	<td><input type=text value=<%=rs(6)%> size=20 maxlength=20></td>
	<td><input type=text value=<%=rs(7)%> size=20 maxlength=20></td>
	<td><input type=text value=<%=rs(8)%> size=20 maxlength=20></td>
	<td><input type=text value=<%=rs(9)%> size=20 maxlength=20></td>
	<td><input type=text value=<%=rs(10)%> size=20 maxlength=20></td>
	<td><input type=text value=<%=rs(11)%> size=20 maxlength=20></td>
	<td><input type=text value=<%=rs(12)%> size=20 maxlength=20></td>
	<td><input type=text value=<%=rs(13)%> size=20 maxlength=20></td>
</tr>
<tr height=20>
	<td colspan=13 align=center>
	
	</td>
</tr>
<tr >
	<td colspan=13 align=center>
	<input type=button name=a1 value="修改">
	<input type=button name=a2 value="退出">
	</td>
</tr>
</table>