📄 huangye_edit.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Inc/AdminChk.asp"-->
<!--#include file="Conn.asp"-->
<!--#include file="../Inc/FormChk.asp"-->
<!--#include file="../Inc/msgbox.asp"-->
<%
IF Trim(Request("Submit"))<>Empty Then
Dim StrSql,Rs,title,sort,body,content
title=Request.Form("title")
sort=Request.Form("sort")
body=htmlencode2(encodestr(request.Form("body")))
content=htmlencode2(encodestr(request.Form("content")))
set rs=server.CreateObject("adodb.recordset")
strsql="select * from [huangye] where id="&request.form("id")
rs.open strsql,conn,1,3
rs("title")=title
rs("sort")=sort
rs("body")=body
rs("content")=content
rs.update
rs.close
set rs=nothing
call msgbox("修改成功","GoUrl","huangye_List.asp")
response.End()
End IF
dim strsq1,id,rs1
id=request.QueryString("id")
strsq1="select * from [huangye] where id="&id
set rs1=conn.execute(strsq1)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改黄页</title>
<LINK href="../style.css" type=text/css rel=stylesheet>
</head>
<body><!--#include file="top.asp"-->
<table width="100%" border="0" cellspacing="1" bgcolor="#FF9933">
<tr>
<td width="98" align="center" bgcolor="#FFFFFF"><font color="#FF8F2A">黄页标题:</font></td>
<td bgcolor="#FFFFFF">
<input name="title" type="text" id="title" value="<%=rs1("title")%>" size="40"></td>
</tr>
<tr>
<td width="98" bgcolor="#FFFFFF" align="center"><font color="#FF8F2A">黄页类型:</font></td>
<td bgcolor="#FFFFFF"> <select name="sort" id="sort" size="1">
<option value="<%=rs1("sort")%>" selected><%=rs1("sort")%></option>
<option value="学校官方">学校官方</option>
<option value="院系主页">院系主页</option>
<option value='行政机构'>行政机构</option><option value='重点实验室'>重点实验室</option>
<option value="后勤服务">后勤服务</option>
<option value="个人主页">个人主页</option>
<option value="研究所">研究所</option>
<option value="文学艺术">文学艺术</option>
<option value="体育运动">体育运动</option>
<option value="信息服务">信息服务</option>
<option value="娱乐休闲">娱乐休闲</option>
<option value="商业金融">商业金融</option>
<option value="学生组织">学生组织</option>
<option value="校外网站">校外网站</option>
</select></td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF"><font color="#FF8F2A">黄页地址</font></td>
<td bgcolor="#FFFFFF">
<input name="body" type="text" id="body" value="<%=rs1("body")%>" size="60"></td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF"><font color="#FF8F2A">黄页介绍：</font></td>
<td bgcolor="#FFFFFF"><textarea name="content" cols="60" rows="17" id="content"><%=rs1("content")%></textarea></td>
</tr>
<tr>
<td width="98" bgcolor="#FFFFFF"> </td>
<td bgcolor="#FFFFFF"><input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置"></td>
</tr>
</table>
<!--#include file="copy.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -