editfile.asp

来自「红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统」· ASP 代码 · 共 26 行

<!--#include file="dbpath/dbpath.asp"-->
<link rel="stylesheet" type="text/css" href="css/style.css">
<!----------------------修改栏目---------------------------->
<%
if request.cookies("adminok")="" then
  response.redirect "login.asp"
end if

dim rst
	set rst=server.CreateObject("ADODB.RecordSet")

if request("name")="edit" then
		rst.open "select * from linktype where typeid="+request("typeid"),conn,1
 %> 
      <form name=ctype method="post" action="saveditfile.asp">
  <div align="center">
    <input type="hidden" name=method value="modified">
    <input type="hidden" name=typeid value="<%=request("typeid")%>">
    <input type="text" size=10 name="typename" value="<%=rst("type")%>" style="BACKGROUND-COLOR:#FFE7B3;font-family: 宋体; font-size: 9pt;">
    <input name="changetype" class=buttonface value="修 改" type='submit' style="BACKGROUND-COLOR:#AB6C00;font-family: 宋体; font-size: 9pt;">
  </div>
</form>
<div align="center"><!--#include file="function/ads.inc"--></div><%rst.close 
end if
%>