请帮我写这段代码(登录,打开页页,赋值,提交)

Question

how much you need to finish this?

Answer 1

login.asp 页面：<script language="JavaScript" type="text/javascript">
<!--
function LoginChk()
{
if(document.Login.postname.value.length == 0)
{
alert("您必须输入管理帐号！");
document.Login.username.focus();
return false;
}
if(document.Login.password.value.length < 5)
{
alert("管理密码必须不能少于5位！");
document.Login.postpass.focus();
return false;
}
}
//-->
</script>
<table width="350" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="Login">
<form name="Login" action="yz.asp" method="post" onSubmit="return LoginChk()">
<tr>
<td height="50" align="center" class="Line"><strong>=== 管理中心登陆 ===</strong></td>
</tr>
<tr>
<td height="40" align="center" valign="bottom">
<strong>管理帐号:</strong>
<input name="username" type="text" class="Input" id="username" size="20">
</td>
</tr>
<tr>
<td height="40" align="center" valign="bottom">
<strong>管理密码:</strong>
<input name="password" type="password" class="Input" id="password" size="20">
</td>
</tr>
<tr>
<td height="40" align="center" valign="bottom">
<input type="submit" name="Submit" value="登 陆" class="Button">
<input type="reset" name="Reset" value="重 置" onClick="postname.focus()" class="Button">
</td>
</tr>
<tr>
<td height="20" align="center">　</td>
</tr>
</form>
</table>yz.asp 页面 :<%
username = trim(request("username"))
password = trim(request("password"))
if username = "" or password = "" then
response.write "<script language = 'javascript'>alert('请输入您的用户名和密码！');window.history.go(-1);</script>"
end if
set rs = server.CreateObject("adodb.recordset")
sql = "select *from admin where username = '"&username&"' and password = '"&password&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<script language = 'javascript'>alert('用户名密码错误，请重新输入');window.history.go(-1);</script>"
else
session("username") = username
session("userpwd") = password
response.redirect "default1.asp"
end if%>list.asp 产品管理页面：
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from gongkai order by id desc",conn,1,1
%>
script language="JavaScript">
function confirms(){
if(confirm("您确认要删除该条信息吗?")){
return true;
}
else{
return false;
}
}
</script>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0" style="border:3px solid #006600">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#F8F8E8" style="border:1px solid #999999">
<tr>
<td height="25">&nbsp;&nbsp;<strong>信息列表：</strong></td>
<td align="right"><a href="add.asp"><strong>添加信息</strong></a>&nbsp;&nbsp;</td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="1" cellpadding="0" cellspacing="0" >
  <tr bgcolor="#eeeeee">
    <td width="97" height="25" align="center"><span class="style6">名称</span></td>
    <td width="200" align="center"><span class="style6">编号 </span></td>
     .....
    <td width="50" align="center"><strong>修改</strong></td>
    <td width="50" align="center"><strong>删除</strong></td>
  </tr>
  <%
if rs.eof and rs.bof then
response.write "当前还没有比赛！"
else
i=1
if request("pageno") = "" or request("pageno") <= 0 then
pageno = 1
else
pageno = request("pageno")
end if
rs.pagesize = 20
rs.absolutepage = pageno
tsum = INT(rs.recordcount/20*-1)*-1
rowcount = rs.pagesize
DO while not rs.eof and rowcount > 0
%>
  <tr>
    <td height="25" align="center"><%=rs("riqi")%></td>
    <td align="center"><%=rs("mc")%></td>
    <td align="center"><%=rs("bh")%> </td>
      ......
    <td align="center"><a href="edit.asp?id=<%=rs("id")%>">修改</a></td>
    <td align="center"><a href="del.asp?id=<%=rs("id")%>" onClick="return confirms();">删除</a></td>
  </tr>
  <%
i=i+1
rs.movenext
rowcount = rowcount - 1
loop
end if
%>
</table></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25"> &nbsp;
<div align="center">[第<B>
<% = pageno %>
</B>页] [共<B>
<% = rs.recordcount %>
</B>条记录，每页<B>30</B>条，总共<B>
<% =rs.pagecount %>
</B>页]&nbsp;&nbsp;
<%
if cint(pageno)<=1 then
response.write"首页 上一页 "
else
%>
<a href="news.asp?pageno=1">首页</a> <a href="news.asp?pageno=<% =pageno -1 %>">上一页</a>
<%
end if
if cint(pageno) >= rs.pagecount then
response.write "下一页 尾页 "
else
%>
<a href="news.asp?pageno=<% = pageno+1 %>">下一页</a> <a href="news.asp?pageno=<% = rs.pagecount %>">尾页</a>
<%
end if
%></div></td>
</tr>
</table>
</td>
</tr>
</table>edit.asp 编辑商品页面：
<%
id=trim(request("id"))
if not Isnumeric(id) then
response.write "<script language = 'javascript'>alert('参数错误，请返回！');window.location.href = 'news.asp';</script>"
end ifif request("submit")<>"" then
mc=trim(request("spqd"))
bh=trim(request("pk"))
.....
if mc="" or bh="" then
response.write "<center>"
response.write "打星号的项目不能为空<p>"
response.write "<a href=javascript:history.go(-1)>返回上页</a>"
response.write "</center>"
response.end
end if
set rs1=server.CreateObject("adodb.recordset")
       rs1.open "select * from gongkai where id="&id&" ",conn,1,3
          rs1("mc")=trim(request("spqd"))
          rs1("bh")=trim(request("pk"))
          ......
          rs1.update
          rs1.close
      set rs1=nothing
response.write "<script language = 'javascript'>alert('产品信息添加成功！');window.location.href = 'news.asp';</script>"
else
sqlstr="select * from gongkai where id="&id
set rs=conn.execute(sqlstr)
mc=rs("mc")
bh=rs("bh")
rs.close
set rs=nothing
end if
%>
  <table width="770" border="0" cellpadding="0" cellspacing="0"  style="border:3px solid #006600">
    <!--DWLayoutTable-->
    <tr>
      <td width="770" height="287" align="center" valign="top"><form method="post" action="">
          <br>
          <p>修改推荐战绩</p>
          <table border="1">
            <tr>
              <td width="72">商品名称：</td>
              <td><input name="mc" type="text" id="mc" value="<%=mc%>">
          </td>
            </tr>
           <tr>
             <td width="72">商品编号：</td>
             <td><input name="bh" type="text" id="bh" value="<%=bh%>"></td>
           </tr>
         </table>
          <input type="submit" name="submit" value="修改商品信息">
          <p> <a href=news.asp>返回商品信息管理</a>
      </form></td>
    </tr>
  </table>

Answer 2

不会，有思路，看看语法和函数就可以了，呵呵。去PHP手册一个一个的查询，慢慢的就会了。

Answer 3

To: zqangel 非常谢谢， 可是不是我要的， 你写的这些我都会login.asp, list.asp, edit.asp, back.asp 这些页面都不是本服务器的，list,edit,back这些页面是要从login.asp页面登录后才可以访问，收集到数据。

Answer 4

lz如果想自己写，那就先理解HTTP通信协议，
如果有因子，找人开发。