⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 lianxiup.asp

📁 一款用ASP写的办公自动化软件
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file=data/conn.asp-->
<!--#include file=connfig.asp-->
<%
if request("post")<>"" then 
call www
end if 
function www
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from lianxi where id="&session("id")
rs1.open sql1,conn,1,3

rs1("lanmu")=request("lanmu")
rs1("name")=request("name")
rs1("tel")=request("tel")
rs1("address")=request("address")
rs1("qq")=request("qq")
rs1("email")=request("email")
rs1.update
rs1.close
response.Redirect("chenggong.htm")
end function
set rs2=server.CreateObject("adodb.recordset")
	  sql2="select * from lianxi where id="&request("id")
	  rs2.open sql2,conn,1,1
%>
<%%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
.style1 {
	font-size: 16px;
	font-weight: bold;
	color: #0000FF;
}
body,td,th {
	font-size: 12px;
}
body {
	background-color: #ffffff;
}
.style2 {color: #FFFFFF}
.style3 {
	font-size: 14px;
	color: #000000;
}
-->
</style>
<link href="biaodan.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_callJS(jsStr) { //v2.0
  return eval(jsStr)
}
//-->
</script>
</head>

<body>
<form name="form1" method="post" action="">
  <table width="337" height="275" border="0" align="center" cellspacing="1" bgcolor="#336699">
    <tr>
      <td height="44" colspan="2" background="images/tile_sub.gif"><div align="center" class="style1 style2 style3">修改名片</div></td>
    </tr>
    <tr>
      <td width="87" bgcolor="#FFFFFF"><div align="right">选择名片夹:</div></td>
      <td width="240" bgcolor="#FFFFFF"> 
        <select name="lanmu" class="unnamed1" id="lanmu">
	  <%
	  set rs=server.CreateObject("adodb.recordset")
	  sql="select * from lanmu where name='"&session("admin_name")&"'"
	  rs.open sql,conn,1,1
	  if not rs.eof then
	  max=rs.recordcount
	  for i=1 to max
	   if rs2("lanmu")=rs("id") then
	   %>
        <option value=<%=rs("id")%> selected><%=rs("lanmu")%></option>
		<% Else %>
        <option value=<%=rs("id")%> ><%=rs("lanmu")%></option>
		
		<%end if
		rs.movenext
		next
		else
		response.Write("<script language=javascript>alert('您还没有添加名片夹')</script>")
		end if
		rs.close
		%>
      </select>
      <input name="post" type="hidden" id="post" value="true"></td>
    </tr>
    <tr>
      <td bgcolor="#FFFFFF"><div align="right">姓名:</div></td>
      <td bgcolor="#FFFFFF"> 
        <input name="name" type="text" class="unnamed1" id="name" value="<%=rs2("name")%>"></td>
    </tr>
    <tr>
      <td bgcolor="#FFFFFF"><div align="right">电话:</div></td>
      <td bgcolor="#FFFFFF"> 
        <input name="tel" type="text" class="unnamed1" id="tel" value="<%=rs2("tel")%>"></td>
    </tr>
    <tr>
      <td bgcolor="#FFFFFF"><div align="right">地址:</div></td>
      <td bgcolor="#FFFFFF"> 
        <input name="address" type="text" class="unnamed1" id="address" value="<%=rs2("address")%>"></td>
    </tr>
    <tr>
      <td bgcolor="#FFFFFF"><div align="right">QQ:</div></td>
      <td bgcolor="#FFFFFF"> 
        <input name="qq" type="text" class="unnamed1" id="qq" value="<%=rs2("qq")%>"></td>
    </tr>
    <tr>
      <td bgcolor="#FFFFFF"><div align="right">email:</div></td>
      <td bgcolor="#FFFFFF"> 
        <input name="email" type="text" class="unnamed1" id="email" value="<%=rs2("email")%>"></td>
    </tr>
    <tr bgcolor="#F3F3F3">
      <td colspan="2"><div align="center">
        <input type="submit" name="Submit" value="提交">
         
        <input type="reset" name="Submit2" value="重置">
          
       <input name="Submit3" type="button" onClick="MM_callJS('history.go(-1)')" value="返回">
      </div></td>
    </tr>
  </table>
</form>
</body>
</html>
<%session("id")=request("id")%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -