form.asp

本程序修改自花香盈路6.0版。所有版权归原作者所有 本站修改后加入了些小偷程序

    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="17%" class="table-xiayou">图片介绍</td>
      <td width="83%" class="table-xiayou"> <textarea name="desc" class="wenbenkuang" cols="55" rows="6">图片版权归图片本人所有,未经同意不得转载!</textarea> 
      </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="17%" class="table-xiayou">提交人</td>
       <td width="83%" class="table-xiayou">
       <input type="hidden" name="tjuser" value="<%=session("hx66User")%>"><%=session("hx66User")%>
      </td>
     </tr>          
    <tr bgcolor="#FFFFFF" align="center"> 
            <td colspan="2" height="30" bgcolor="#F5F5F5" class="table-xiayou"> 
              <input type="submit" name="Submit" value="确定新增" class="button"> 
        <input type="reset" name="Reset" value="清空重填" class="button">
            </td>
    </tr>
    <input type="hidden" name="action" value="pic">
   </form>
</table>
<%end sub%>
<%sub art()'===========网友添加文章提交表单%>
<table width="535" align="center" border="0" align="center" cellpadding="0" cellspacing="3" class="table-zuoshang">
  <form name="form2" method="post" action="recheck.asp?hx66=art" target="picpic" onsubmit="return picpic()">
    <tr> 
       <td colspan="2" align="center" class="table-xiayou">
            <font color="red">新增文章</font></td>
     </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="17%" class="table-xiayou">标题名称</td>
      <td width="83%" class="table-xiayou"> <input type="text" name="art_title" size="50" class="wenbenkuang"> 
      </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="17%" class="table-xiayou">所属分类</td>
      <td width="83%" class="table-xiayou"> 
              <select name="cat_id">
                <%
sql="select * from a_cat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("cat_name")&"'>"
sql="select * from a_cat where sid="&rs1("cat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
              <option value="<%=rs2("cat_id")%>">├ <%=rs2("cat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs1.close
set rs1=nothing%>
              </select>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;关键字 
<input type="text" name="art_keyword" size="18"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td colspan="2" align="center" class="table-xiayou"> <script language="Javascript1.2"><!-- // load htmlarea
_editor_url = "Editor/";                     // URL to htmlarea files
var win_ie_ver = parseFloat(navigator.appVersion.split("MSIE")[1]);
if (navigator.userAgent.indexOf('Mac')        >= 0) { win_ie_ver = 0; }
if (navigator.userAgent.indexOf('Windows CE') >= 0) { win_ie_ver = 0; }
if (navigator.userAgent.indexOf('Opera')      >= 0) { win_ie_ver = 0; }
if (win_ie_ver >= 5.5) {
  document.write('<scr' + 'ipt src="' +_editor_url+ 'editor.js"');
  document.write(' language="Javascript1.2"></scr' + 'ipt>');  
} else { document.write('<scr'+'ipt>function editor_generate() { return false; }</scr'+'ipt>'); }
// --></script>
<textarea name="art_content" style="width:540; height:250" id="art_content"></textarea>
<script language="javascript1.2">
editor_generate('art_content');
</script>
      </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="17%" class="table-xiayou">提交人</td>
       <td width="83%" class="table-xiayou">
       <input type="hidden" name="tjuser" value="<%=session("hx66User")%>"><%=session("hx66User")%>
      </td>
    </tr>          
    <tr bgcolor="#FFFFFF" align="center"> 
            <td colspan="2" height="30" bgcolor="#F5F5F5" class="table-xiayou"> 
              <input type="submit" name="Submit" value="确定新增" class="button"> 
        <input type="reset" name="Reset" value="清空重填" class="button">
            </td>
    </tr>
    <input type="hidden" name="action" value="art">
   </form>
</table>
<%end sub%>
<%sub down()'===========网友添加下载提交表单%>
<table width="535" align="center" border="0" align="center" cellpadding="0" cellspacing="3" class="table-zuoshang">
  <form name="form2" method="post" action="recheck.asp?hx66=down" target="picpic" onsubmit="return picpic()">
    <tr bgcolor="#FFFFFF"> 
                <td width="16%" class="table-xiayou">软件名称</td>
                <td width="84%" class="table-xiayou">
                    <input type="text" name="name" size="40" class="wenbenkuang">
                  </td>
              </tr>
              <trbgcolor="#FFFFFF"> 
                <td class="table-xiayou">软件大小</td>
                <td class="table-xiayou"><input type="text" name="size" size="20" class="wenbenkuang"></td>
              </tr>
              <tr bgcolor="#FFFFFF"> 
                <td class="table-xiayou">授权方式</td>
                <td class="table-xiayou">
                    <select name="mode">
		     <option value="免费软件" selected>免费软件</option>
                      <option value="共享软件">共享软件</option>
                      <option value="汉化软件">汉化软件</option>
                      <option value="破解软件">破解软件</option>
                    </select>
                  </td>
              </tr>
              <tr bgcolor="#FFFFFF"> 
                <td class="table-xiayou">应用平台</td>
                <td class="table-xiayou">
                    <select name="roof">
		     <option value="Win9x/Me">Win9x/Me</option>
		     <option value="IIS环境" selected>IIS环境</option>
                      <option value="WinNT/2000/XP">WinNT/2000/XP</option>
                      <option value="Win9x/Me/NT/2000/XP">Win9x/Me/NT/2000/XP</option>
                    </select>
                  </td>
              </tr>
              <tr bgcolor="#FFFFFF"> 
                <td class="table-xiayou">推荐程度</td>
                <td class="table-xiayou">
                    <select name="commend">
		     <option value="5">5stars</option>
                      <option value="4">4stars</option>
                      <option value="3" selected>3stars</option>
                      <option value="2">2stars</option>
                      <option value="1">1stars</option>
                      <option value="0">0stars</option>
                    </select>
                  </td>
              </tr>
              <tr bgcolor="#FFFFFF"> 
                <td class="table-xiayou">所属分类</td>
                <td class="table-xiayou">
                    <select name="of">
                      <%
dim catname,classname,catid,classid
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM d_cat"
rs.OPEN sql,Conn,1,1
if not (rs.eof and rs.bof) then
rs.movefirst
do while not rs.eof
sql="select * from d_class where cat_id="&rs("cat_id")
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.OPEN sql,Conn,1,1
if not (rs2.eof and rs2.bof) then
do while not rs2.eof
catid=rs("cat_id")
classid=rs2("class_id")
catname=rs("cat_name")
classname=rs2("class_name")
%>
                      <option value='<%=rs2("class_id")%>'><%=rs2("class_name")%>（<%=rs("cat_name")%>）</option>
<%
rs2.movenext
loop
end if
rs.movenext
rs2.close
set rs2=nothing
loop
end if
%>
                    </select>
                  </td>
              </tr>
              <tr bgcolor="#FFFFFF"> 
                <td class="table-xiayou">演示地址</td>
                <td class="table-xiayou">
                    <input type="text" name="demo" size="40" class="wenbenkuang">
                  </td>
              </tr>
              <tr bgcolor="#FFFFFF"> 
                <td class="table-xiayou">主页地址</td>
                <td class="table-xiayou">
                    <input type="text" name="home" size="40" class="wenbenkuang" value="http://ftwl.cb35.com">
                  </td>
              </tr>
              <tr bgcolor="#FFFFFF"> 
                <td class="table-xiayou">图片地址</td>
                <td class="table-xiayou">
                    <input type="text" name="showpic" size="40" class="wenbenkuang" value="http://ftwl.cb35.com">
                  </td>
              </tr>
              <tr bgcolor="#FFFFFF"> 
                <td class="table-xiayou">程序简介</td>
                <td class="table-xiayou">
                    <textarea name="desc" cols="55" rows="6" class="wenbenkuang">没有</textarea>
                  </td>
              </tr>
              <tr bgcolor="#FFFFFF"> 
                <td class="table-xiayou">下载地址</td>
                <td class="table-xiayou">
                    <input type="text" name="url1" size="40" class="wenbenkuang">
                  </td>
              </tr>
              <tr bgcolor="#FFFFFF"> 
               <td width="17%" class="table-xiayou">提交人</td>
                <td width="83%" class="table-xiayou">
                <input type="hidden" name="tjuser" value="<%=session("hx66User")%>"><%=session("hx66User")%>
              </td>
              </tr>          
              <tr bgcolor="#FFFFFF"> 
                <td colspan="2" align="center" height="30" class="table-xiayou">
              <input type="submit" name="Submit" value="确定新增" class="button">
                    <input type="reset" name="Reset" value="清空重填" class="button"></td>
              </tr>
	            <input type="hidden" name="action" value="down">
		</form>
            </table>
<%end sub%>