Discuz!官方免费开源建站系统

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索

怎么美化下这个页面啊?请各位高手帮下忙!

[复制链接]
by1sou 发表于 2007-11-22 21:14:09 | 显示全部楼层 |阅读模式
怎么美化下这个页面啊?请各位高手帮下忙!
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>

<%
     dim db,zhang
Set db=Server.CreateObject("ADODB.Connection")
db.Open "dbq=" & Server.MapPath("db.mdb")&";driver={microsoft access driver (*.mdb)}"
dim sql
sql="select name from catory where pid=0"
set rs=db.execute(sql)


%>

<script language="javascript">
function bh()
{
window.location.href='wori.asp?a='+(document.form1.aa.options[document.form1.aa.options.selectedIndex].text);

}
</script>
<table width="100%">
  <!--DWLayoutTable-->
  <tr>
    <td width="701" height="183" valign="top"><table width="94%" border="0" cellpadding="0" cellspacing="0">
      <!--DWLayoutTable-->
      <tr>
        <td width="75" height="19"> </td>
        <td width="291" height="19"> </td>
        <td width="135"> </td>
        <td width="154"> </td>
      </tr>
      <tr>
        <td height="21"><div align="right"></div></td>
        <td height="21"><div align="right">章:</div></td>
        <td valign="top"><form name="form1" method="post" action="">
        <select name="aa" onChange="bh()">
          <option  selected>
          <%
if not(rs.eof) then

  do while not(rs.eof or rs.bof)
  %>
          <option selected><%=rs("name")%>
          <%rs.movenext
%>
          </option>
          <%loop
else
%>
          <option><%=zhang%></option>
          <% end if%>
        </select>
            </form></td>
    <td><form name="form3" method="post" action="tianjiayemian.asp">
      <input type="submit" name="Submit" value="添加节">
    </form></td>
      </tr>
    </table>
      <form name="form2" method="post" action="tianjia3.asp">
        <p>
          <%
  dim aa,bb
  if request("a")="" then
  aa="第一章"
  else
  aa=request("a")
  end if

dim strSql,rsd
strSql="Select id From catory where name='" & aa & "'"
Set rsd=db.Execute(strSql)
dim rsa,sqla
bb=rsd("id")


sqla="select * from catory where pid=" &bb
Set rsa=db.Execute(sqla)

  %>
         <script language="javascript">
function bb()
{
window.location.href='wori.asp?a='+(document.form2.bb.options[document.form2.bb.options.selectedIndex].text);

}
</script>
        </p>
        <table width="100%" border="0">
          <tr>
            <td width="161" height="39"> </td>
            <td width="233"><div align="right">节:</div></td>
            <td width="239"><select name="bb" onChange="bb()">
              <%
  if not (rsa.eof) then
  rsa.movefirst
  do while not(rsa.eof or rsa.bof)
  %>
              <option selected><%=rsa("name")%>
              <%rsa.movenext
%>
              </option>
              <%loop
else
%>
              <option value="wu">没有章节</option>
              <% end if%>
            </select></td>
          </tr>
          <tr>
            <td height="44"> </td>
            <td><div align="right">小节:</div></td>
            <td><input name="xiaojie" type="text" id="xiaojie"></td>
          </tr>
          <tr>
            <td height="68"> </td>
            <td><div align="right">内容:</div></td>
            <td> </td>
          </tr>
          <tr>
            <td height="68"> </td>
            <td colspan="2"><div align="center">
              <iframe id="eWebEditor1" src="ewebeditor.htm?id=content" frameborder="0" scrolling="No" width="550" height="350"></iframe>
<input name="content" type="hidden"  id="content" value="<%=ff%>" />            </div></td>
          </tr>
          <tr>
            <td height="68"> </td>
            <td><div align="right">
              <input type="submit" name="Submit" value="提交">
            </div></td>
            <td><input type="reset" name="Submit2" value="重置"></td>
          </tr>
        </table>
        <p> </p>
        <p>         </p>
        <p> </p>
        <p>         </p>
      </form>
    <p> </p></td>
  </tr>
</table>
<p> </p>
</body>
</html>
这是网页代码,请大家帮忙改下,让它好看些,谢谢了!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|Discuz! 官方站 ( 皖ICP备16010102号 )star

GMT+8, 2024-12-25 00:16 , Processed in 0.022347 second(s), 3 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

Copyright © 2001-2023, Tencent Cloud.

快速回复 返回顶部 返回列表