www.gusucode.com > 艺帆全站DIV+CSS体育用品公司网站源码 1.7.5源码程序 > i5808/add_download.asp

    <!--#include file="../Conn.asp" -->
<!--#include file="seeion.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link rel="stylesheet" type="text/css" id="css" href="images/style.css">
<title>增加下载</title>
<%

Dim htmlData

htmlData = Request.Form("body")

Function htmlspecialchars(str)
	str = Replace(str, "&", "&amp;")
	str = Replace(str, "<", "&lt;")
	str = Replace(str, ">", "&gt;")
	str = Replace(str, """", "&quot;")
	htmlspecialchars = str
End Function
%><link rel="stylesheet" href="themes/default/default.css" />
	<link rel="stylesheet" href="plugins/code/prettify.css" />
	<script charset="utf-8" src="kindeditor.js"></script>
	<script charset="utf-8" src="lang/zh_CN.js"></script>
	<script charset="utf-8" src="plugins/code/prettify.js"></script>
	<script>
		KindEditor.ready(function(K) {
			var editor1 = K.create('textarea[name="body"]', {
				cssPath : 'plugins/code/prettify.css',
				uploadJson : 'asp/upload_json.asp',
				fileManagerJson : 'asp/file_manager_json.asp',
				allowFileManager : true,
				afterCreate : function() {
					var self = this;
					K.ctrl(document, 13, function() {
						self.sync();
						K('form[name=add]')[0].submit();
					});
					K.ctrl(self.edit.doc, 13, function() {
						self.sync();
						K('form[name=add]')[0].submit();
					});
				}
			});
			prettyPrint();
		});
	</script>

</head>
<body>
<form  name="add" method="post" action="add_download_pass.asp">
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" >
  <tr>
    <td height="30" background="images/bg_list.gif"><div  style="padding-left:10px; font-weight:bold; color:#0075a9">增加下载</div></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF"><table width="100%" border="0" align="center" cellpadding="5" cellspacing="0" >
      <tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8" >
        <td height="28" width="16%" class="td">下载名称</td>
        <td width="84" colspan="2"  class="td">
          <input name="title" type="text" size="50"  /></td>
      </tr>
      <tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
        <td height="25" width="16%" class="td">所属分类</td>
        <td colspan="2" class="td"><select name="ssfl" id="select">
    <%
    dim rsc
    set rsc=server.CreateObject("adodb.recordset")
    rsc.open "select * from download_fl",conn,1,1
    while not rsc.eof
   response.Write("<option value=""" & rsc("id") & """>" & rsc("title") & "</option>")
   rsc.movenext
  wend
  rsc.close
  set rsc=nothing
    %>
                    </select></td>
      </tr>
      <tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8">
        <td width="16%" height="7" class="td">程序语言</td>
        <td colspan="2" class="td"><label>
          <input name="yuyan" type="radio"value="1" checked="checked" />
          简体中文
          <input type="radio" name="yuyan"value="2" />
          繁体中文 
          <input type="radio" name="yuyan"value="3" />
          English 
          <input type="radio" name="yuyan"value="4" />
          多国语言
        </label></td>
      </tr>
      <tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
        <td width="16%" height="6" class="td">运行平台</td>
        <td colspan="2" class="td"><label>
<input name="yxpt" type="checkbox"  value="XP" />XP
<input name="yxpt" type="checkbox" checked="checked"  value="Vista"/>Vista
<input name="yxpt" type="checkbox" checked="checked"  value="Win7" />Win7 
<input name="yxpt" type="checkbox" checked="checked"   value="Win8"/>Win8 
<input name="yxpt" type="checkbox" checked="checked"   value="OS"/>OS </label></td>
      </tr>
      <tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#F1F5F8'" bgcolor="#F1F5F8">
        <td width="16%" height="12" class="td">推荐等级</td>
        <td colspan="2" class="td"><label>
          <select name="tjdj" id="select2">
            <option value="1">★☆☆☆☆</option>
            <option value="2">★★☆☆☆</option>
            <option value="3">★★★☆☆</option>
            <option value="4">★★★★☆</option>
            <option value="5">★★★★★</option>
          </select>
        </label></td>
      </tr>
    <tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
        <td height="25" class="td">程序大小</td>
        <td colspan="2" class="td"><input name="daxiao" type="text" size="10"  />
          <label>
          <input name="danwei" type="radio" value="1" checked="checked" />
KB
<input type="radio" name="danwei" value="2" />
MB
<input type="radio" name="danwei" value="3" />
GB</label></td>
      </tr>
    <tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
      <td height="3" bgcolor="#F1F5F8" class="td">下载地址</td>
      <td bgcolor="#F1F5F8" class="td"><input name="img" type="text" id="PhotoUrl" size="30" maxlength="200" /></td>
      <td bgcolor="#F1F5F8" class="td"><iframe style="top:2px" id="UploadFiles" src="upload_Photo.asp?PhotoUrlID=0" frameborder="0" scrolling="No" width="320" height="25"></iframe></td>
    </tr>
    <tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
      <td height="30" bgcolor="#F1F5F8" class="td">关键词</td>
      <td colspan="2" bgcolor="#F1F5F8" class="td"><input name="keywords" type="text" id="keywords" size="30" />
        不设置留空默认格式为:文章标题+文章类别+网站名称</td>
    </tr>
    <tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
      <td height="30" class="td">描述</td>
      <td colspan="2" class="td"><textarea name="description" cols="50" rows="5" id="description"></textarea>
        不设置留空默认格式为:文章内容前200个字符</td>
    </tr>
    
      <tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
        <td height="25" class="td">程序介绍</td>
        <td colspan="2" class="td"><textarea name="body" id="body" style="width:700px;height:300px;visibility:hidden;"></textarea></td>
      </tr>
      <tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
        <td height="25" class="td">&nbsp;</td>
        <td colspan="2" class="td"><input name="qx" type="checkbox" id="qx" value="1" />
仅会员可以下载</td>
      </tr>
    <tr onmouseover="style.backgroundColor='#EEEEEE'" onmouseout="style.backgroundColor='#FFFFFF'" bgcolor="#FFFFFF">
        <td height="25" class="td">&nbsp;</td>
        <td colspan="2" class="td"><input type="submit" name="button" id="button" value="确认提交"  class="btn"/></td>
      </tr>
    </table>
</td>
  </tr>
</table></form>
</body>
</html>