📄 admadd.asp
字号:
<!--#include file="admcheck.asp"-->
<!--#include file="dbpath.asp"-->
<%
if request("d")="edit" then
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from down where id="&request("id")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "此ID号的程序不存在/或已删除"
response.end
end if
end if
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css"><!--
td {font-size: 9pt;line-height: 13pt}
a:link {color:#0000FF ;text-decoration:none}
a:visited{color:#0000FF ;text-decoration:none}
a:hover {color: #FF0000;text-decoration:underline}
--></style>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center">
<center>
<table border="0" bgcolor="#D4D4D4" cellspacing="1">
<tr>
<td><a href="admlist.asp">源码下载</a>>> 添加程序</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" valign="top">
<div align="center">
<center>
<table border="0" cellspacing="0" cellpadding="5">
<form action="admsave.asp?d=<%if request("d")="edit" then%>edit&id=<%=rs("id")%><%else%>add<%end if%>" method=post>
<tr>
<td nowrap align="right" bgcolor="#F4F4F4">
程序类别：
</td>
<td nowrap bgcolor="#F4F4F4">
<select size="1" name="type">
<option selected value="">= 请选择 =</option>
<%
sql_type="select * from type"
Set rs_type= Server.CreateObject("ADODB.Recordset")
rs_type.open sql_type,conn,1,1
if not rs_type.eof then
do while not rs_type.eof%>
<option value="<%=rs_type("type")%>"<%if request("d")="edit" then%><%if rs_type("type")=rs("type") then%> selected<%end if%><%end if%>><%=rs_type("type")%></option>
<%rs_type.movenext
loop
end if%>
</select>
<font color="#FF0000">*</font>
</td>
</tr>
<tr>
<td nowrap align="right">程序名称：</td>
<td nowrap><input type="text" name="name" size="60"
class="smallinput" maxlength="255" value="<%if request("d")="edit" then%><%=rs("name")%><%end if%>">
<font color="#FF0000">*</font>
</td>
</tr>
<tr>
<td nowrap align="right" bgcolor="#F4F4F4">下载地址：</td>
<td nowrap bgcolor="#F4F4F4"><input type="text" name="file" size="60"
class="smallinput" maxlength="255" value="<%if request("d")="edit" then%><%=rs("file")%><%else%><%if request("file")<>"" then%><%=request("file")%><%end if%><%end if%>">
<font color="#FF0000">*</font>
</td>
</tr>
<tr>
<td nowrap align="right"> 文件大小： </td>
<td nowrap> <input type="text" name="kk" size="23"
class="smallinput" maxlength="255" value="<%if request("d")="edit" then%><%=rs("kk")%><%else%><%=request("kk")%><%end if%>">
</td>
</tr>
<tr>
<td nowrap align="right" bgcolor="#F4F4F4"> 演示地址： </td>
<td nowrap bgcolor="#F4F4F4"> <input type="text" name="ys" size="60" maxlength="255" value="<%if request("d")="edit" then%><%=rs("ys")%><%end if%>">
</td>
</tr>
</center>
<tr>
<td nowrap align="right" valign="top"> 程序简介： </td>
<td nowrap><textarea rows="6" name="note" cols="60"><%if request("d")="edit" then
dim tempstr
tempstr=replace(rs("note")," "," ")
tempstr=replace(tempstr,"<br>",chr(13))
response.write tempstr
end if%></textarea> </td>
</tr>
<tr>
<td nowrap colspan="2">
<p align="center">
<input name="Submit2" type="submit" value="增加"> <input type="reset" value="重写" name="B2"><%
if request("d")="edit" then%>
更新时间<input type="checkbox" name="timeyes" value="ON" checked>
点击数<input type="checkbox" name="hitsyes" value="ON"><input type="text" name="hits" size="12"
class="smallinput" maxlength="255" value="<%=rs("hits")%>">
<%end if%>
</td>
</tr>
</form>
</table>
</div>
</td>
</tr>
</table>
</center>
</div>
<%
rs_type.close
set rs_type=nothing
conn.close
set conn=nothing%>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -