📄 wyly_lygl_3.asp

📁 asp+Access开发的客户资源管理系统,用户名:admin,密码:

💻 ASP

字号:

<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<%
      '以namez
	  name=request.querystring("name")
	  set conn=server.createobject("adodb.connection")
	conn.open "driver={Microsoft Access Driver (*.mdb)};pwd=webcool_2000;dbq=" & Server.MapPath("../database/customer.mdb")
      commandtext="select * from bbs where name='"&name&"'"
      set rs=conn.execute(commandtext,40,1)
	  %>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<form name="form1" method="post" action="wyly_lygl_3_1.asp">
<p><b><font color="#9999FF">修改留言</font></b></p>
<p>姓名 
  <input type="text" name="name" value="<%=rs("name")%>">
  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;电子邮件 
  <input type="text" name="email" value="<%=rs("email")%>">
  <br>
  标题 
  <input type="text" name="title" size="50" value="<%=rs("title")%>">
  <br>
  内容 
  <textarea name="reirong" cols="60" rows="6" ><%=rs("neirong")%></textarea>
  <br>
  对象 
  <select name="username" value="<%=rs("neirong")%>">
  <option selected>大家</option>
  <%
      commandtext="select * from quanxian"
      set rs=conn.execute(commandtext,40,1)
      while not rs.eof
	  %>
  
	 
		<option value="<%=rs("user").value%>"><%=rs("user").value%></option>
      <%     
      rs.movenext
	  wend    %>
  </select>
  <br>
  <br>
  <br>
  <input type="submit" name="Submit" value="确 定">
  <input type="reset" name="Submit2" value="取 消">
</p>


</form>
</body>
</html>


<html></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -