📄 soft_edit.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="chkadmin.asp"-->
<!--#include file="inc/code.asp"-->
<%dim id
id=CInt(Trim(Request.QueryString("id")))%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="../style.css" rel="stylesheet" type="text/css">
</head>
<body>
<form name="form1" method="post" action="soft_edit_save.asp">
<table width="580" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#EEEEEE">
<tr bgcolor="#708090">
<td colspan="2" align="center" class="TdBorderB"><font color="#FFFFFF">修
改 软 件</font></td>
</tr>
<tr>
<td align="right" class="TdBorderRB">所属分类</td>
<td class="TdBorderB"> <%dim sql,rs,ClassName,ParentStr,ParentNum,i,rs2,sql2
sql="select FileName,Grade,Brief,Chinese,Crack,Hidden,Member,Best,Keyword,Info,Picture,FtpDown,URL,ClassID,Poster from Software where ID="&id
' 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14
set rs=conn.execute(sql)
sql2="select ClassName,ParentStr from Class where ID="&rs(13)
set rs2=conn.execute(sql2)
ClassName=rs2(0)
ParentStr=Split(rs2(1),",")
ParentNum=UBound(ParentStr)
if ParentStr(0)="0" then
response.write " \ <a href=soft_list.asp?id="&rs(13)&">"&ClassName&"</a>"
else
response.write " \ "
for i=0 to ParentNum
sql2="select ID,ClassName from Class where ID="&CInt(ParentStr(i))
set rs2=conn.execute(sql2)
response.write "<a href=soft_list.asp?id="&rs2(0)&">"&rs2(1)&"</a> \ "
next
response.write "<a href=soft_list.asp?id="&rs(13)&">"&ClassName&"</a>"
end if
dim Info,Picture,FtpDown
Info=Split(rs(9),"|")
if not(isnull(rs(10)) or rs(10)="") then
Picture=Split(rs(10),"|")
end if
if not(isnull(rs(11)) or rs(11)="") then
FtpDown=Split(rs(11),"|")
end if
%> <input name="id" type="hidden" id="id" value="<%=id%>">
<input name="ClassID" type="hidden" id="ClassID" value="<%=rs(13)%>">
<input name="Poster" type="hidden" id="Poster" value="<%=rs(14)%>">
<input name="gourl" type="hidden" id="gourl" value="<%=request.ServerVariables("HTTP_REFERER")%>">
[<a href="soft_chgclass.asp?softid=<%=id%>">修改分类</a>]</td>
</tr>
<tr>
<td align="right" class="TdBorderRB"><font color="#FF0000">*</font>软件名称</td>
<td class="TdBorderB"> <input name="FileName" type="text" class="input" id="FileName" value="<%=rs(0)%>" size="50">
<font color="#FF0000">*</font>关键字
<input name="Keyword" type="text" class="input" id="Keyword" value="<%=rs(8)%>" size="20"></td>
</tr>
<tr>
<td align="right" class="TdBorderRB"><font color="#FF0000">*</font>软件大小</td>
<td class="TdBorderB"><input name="FileSize" type="text" class="input" id="FileSize" value="<%=Info(0)%>" size="15">
运行平台
<select name="RunSystem" class="button" id="RunSystem">
<option value="Windows9X/ME/NT/2000/XP" <% If Info(1)="Windows9X/ME/NT/2000/XP" Then
response.write "selected"
end if %>>Windows9X/ME/NT/2000/XP</option>
<option value="Windows9X/ME" <% If Info(1)="Windows9X/ME" Then
response.write "selected"
end if %>>Windows9X/ME</option>
<option value="WindowsNT/2000/XP" <% If Info(1)="WindowsNT/2000/XP" Then
response.write "selected"
end if %>>WindowsNT/2000/XP</option>
<option value="WindowsNT/2000" <% If Info(1)="WindowsNT/2000" Then
response.write "selected"
end if %>>WindowsNT/2000</option>
<option value="WindowsNT" <% If Info(1)="WindowsNT" Then
response.write "selected"
end if %>>WindowsNT</option>
<option value="Windows2000" <% If Info(1)="Windows2000" Then
response.write "selected"
end if %>>Windows2000</option>
<option value="WindowsXP" <% If Info(1)="WindowsXP" Then
response.write "selected"
end if %>>WindowsXP</option>
<option value="Dos" <% If Info(1)="Dos" Then
response.write "selected"
end if %>>Dos</option>
<option value="Unix/Linux" <% If Info(1)="Unix/Linux" Then
response.write "selected"
end if %>>Unix/Linux</option>
<option value="Unix" <% If Info(1)="Unix" Then
response.write "selected"
end if %>>Unix</option>
<option value="Linux" <% If Info(1)="Linux" Then
response.write "selected"
end if %>>Linux</option>
<option value="Mac" <% If Info(1)="Mac" Then
response.write "selected"
end if %>>Mac</option>
</select> 软件评级
<%dim Grade
Grade=rs(1)%> <select name="Grade" class="button" id="Grade">
<option value="5" <% If Grade=5 Then
response.write "selected"
end if %>>★★★★★</option>
<option value="4" <% If Grade=4 Then
response.write "selected"
end if %>>★★★★</option>
<option value="3" <% If Grade=3 Then
response.write "selected"
end if %>>★★★</option>
<option value="2" <% If Grade=2 Then
response.write "selected"
end if %>>★★</option>
<option value="1" <% If Grade=1 Then
response.write "selected"
end if %>>★</option>
<option value="0" <% If Grade=0 Then
response.write "selected"
end if %>>不评级</option>
</select></td>
</tr>
<tr>
<td align="right" class="TdBorderRB">FTP下载</td>
<td class="TdBorderB">
<%response.write "<select name='FTP' class='input' id='select3' style='font-size:12px'>"
dim FtpSetting,j,FtpNum
sql2="select top 1 FtpSetting from Config"
set rs2=conn.execute(sql2)
FtpSetting=rs2(0)
if isnull(FtpSetting) or FtpSetting="" then
response.write "<option value=no>您还没有设置FTP服务器</option></select> 文件名 <input name='FtpFile' type='text' class='input' id='FtpFile' size='28' onFocus='this.blur()'>"
else
FtpSetting=Split(FtpSetting,VBCrLf)
FtpNum=Ubound(FtpSetting)
for j=0 to FtpNum
if not(isnull(rs(11)) or rs(11)="") then
if FtpDown(0)=j then
response.write "<option value="&j&" selected>"&FtpSetting(j)&"</option>"
else
response.write "<option value="&j&">"&FtpSetting(j)&"</option>"
end if
else
response.write "<option value="&j&">"&FtpSetting(j)&"</option>"
end if
next
response.write "</select> 文件名 <input name='FtpFile' type='text' class='input' id='FtpFile' size='28'"
if not(isnull(rs(11)) or rs(11)="") then response.write " value='"&FtpDown(1)&"'>" else response.write ">"
end if
set rs2=nothing
%>
</td>
</tr>
<tr>
<td align="right" class="TdBorderRB"> </td>
<td class="TdBorderB"><font color="#FF0000">每个下载地址用回车隔开，如果下载地址有说明，请用“|”隔开，说明文字在前面。</font></td>
</tr>
<tr>
<td align="right" class="TdBorderRB">下载地址</td>
<td class="TdBorderB"><textarea name="URL" cols="80" rows="3" id="URL"><%=rs(12)%></textarea></td>
</tr>
<tr>
<td align="right" class="TdBorderRB">汉化文件</td>
<td class="TdBorderB"><textarea name="Chinese" cols="80" id="Chinese"><%=rs(3)%></textarea></td>
</tr>
<tr>
<td align="right" class="TdBorderRB">注册破解</td>
<td class="TdBorderB"><textarea name="Crack" cols="80" id="Crack"><%=rs(4)%></textarea></td>
</tr>
<tr>
<td align="right" class="TdBorderRB">UBB</td>
<td class="TdBorderB"><img onclick=bold() src="images/icon_editor_bold.gif" width="22" height="22" alt="粗体" border="0">
<img onclick=italicize() src="images/icon_editor_italicize.gif" width="23" height="22" alt="斜体" border="0">
<img onclick=underline() src="images/icon_editor_underline.gif" width="23" height="22" alt="下划线" border="0">
<img onclick=center() src="images/icon_editor_center.gif" width="22" height="22" alt="居中" border="0">
<img onclick=hyperlink() src="images/icon_editor_url.gif" width="22" height="22" alt="超级连接" border="0">
<img onclick=email() src="images/icon_editor_email.gif" width="23" height="22" alt="Email连接" border="0">
<img onclick=image() src="images/icon_editor_image.gif" width="23" height="22" alt="图片" border="0">
<img onclick=flash() src="images/swf.gif" width="23" height="22" alt="Flash图片" border="0">
<img onclick=showcode() src="images/icon_editor_code.gif" width="22" height="22" alt="编号" border="0">
<img onclick=quote() src="images/icon_editor_quote.gif" width="23" height="22" alt="引用" border="0">
<img onclick=list() src="images/icon_editor_list.gif" width="23" height="22" alt="目录" border="0">
<IMG onclick=setfly() height=22 alt=飞行字 src="images/fly.gif" width=23 border=0>
<IMG onclick=move() height=22 alt=移动字 src="images/move.gif" width=23 border=0>
<IMG onclick=glow() height=22 alt=发光字 src="images/glow.gif" width=23 border=0>
<IMG onclick=shadow() height=22 alt=阴影字 src="images/shadow.gif" width=23 border=0><br>
字体：
<SELECT style="font-size:12px" onchange=showfont(this.options[this.selectedIndex].value) name=font>
<option value="宋体" selected>宋体</option>
<option value="楷体_GB2312">楷体</option>
<option value="新宋体">新宋体</option>
<option value="黑体">黑体</option>
<option value="隶书">隶书</option>
<OPTION value="Andale Mono">Andale Mono</OPTION>
<OPTION value=Arial>Arial</OPTION>
<OPTION value="Arial Black">Arial Black</OPTION>
<OPTION value="Book Antiqua">Book Antiqua</OPTION>
<OPTION value="Century Gothic">Century Gothic</OPTION>
<OPTION value="Comic Sans MS">Comic Sans MS</OPTION>
<OPTION value="Courier New">Courier New</OPTION>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -