<style type="text/css">
<!--
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
.style1 {
color: #000000;
font-size: 12px;
}
-->
</style>
<table width="180" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="170"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="img/pinpai.jpg"></td>
</tr><tr>
<td width="180" align="center" background="img/didi.jpg">
<table width="180" border="0" cellspacing="0" cellpadding="0" background="img/didi.jpg">
<tr>
<td><img src="img/soho_r1_c1.jpg"></td>
</tr>
<tr>
<TD>
<%
dim count
set rs=server.createobject("adodb.recordset")
rs.open "select * from sorts order by sortsorder ",conn,1,1%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rs.eof
%>
subcat[<%=count%>] = new Array("<%= trim(rs("sorts"))%>","<%= rs("categoryid")%>","<%= rs("sortsid")%>");
<%
count = count + 1
rs.movenext
loop
rs.close
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.myform.sortsid.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.myform.sortsid.options[document.myform.sortsid.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</script>
<form name="myform" method="post" action="saveaddpro.asp?action=add">
<table width="170" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<%
rs.open "select * from category order by categoryorder",conn,1,1
if rs.eof and rs.bof then
response.write "没有内容!"
response.end
else
%> <div align="center">
<select name="categoryid" size="1" id="categoryid" onChange="changelocation(document.myform.categoryid.options[document.myform.categoryid.selectedIndex].value)">
<option selected value="<%=rs("categoryid")%>"><%=trim(rs("category"))%></option>
<%
selclass=rs("categoryid")
rs.movenext
do while not rs.eof
%>
<option value="<%=rs("categoryid")%>"><%=trim(rs("category"))%></option>
<%
rs.movenext
loop
end if
rs.close
%>
</select></div>
<Br> <div align="center"><select name="sortsid">
<% rs.open "select * from sorts where categoryid="&selclass ,conn,1,1
if not(rs.eof and rs.bof) then
%>
<option selected value="<%=rs("sortsid")%>"><%=rs("sorts")%></option>
<% rs.movenext
do while not rs.eof %>
<option value="<%=rs("sortsid")%>"><%=rs("sorts")%></option>
<% rs.movenext
loop
end if
rs.close
rs.open "select * from TimesProList",conn,1,1
%>
</select> </div> </td>
</tr>
<tr>
<td height="50">
<div align="center"> <input name="key" type="text" size="12"> <input type="submit" name="Submit" value="提交" onClick="return checkpro();">
</div></td>
<% rs.close
set rs = nothing
conn.Close
set conn = nothing %>
</tr>
</table>
</form></TD>
</tr>
<tr>
<td><img src="img/kou.jpg" width="171" height="13"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="180" ><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="180" background="img/dd.jpg"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="img/lxwm_r1_c1.jpg" width="180" height="45"></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="img/lxwm_r2_c1_r1_c1.jpg" width="180" height="19"></td>
</tr>
<tr>
<td style="color:6A6A6A; font-size:12px; line-height:20px;"><img src="img/lxwm_r2_c1_r2_c1.jpg" width="180" height="89"></td>
</tr>
<tr>
<td><img src="img/lxwm_r2_c1_r3_c1.jpg" width="180" height="33"></td>
</tr>
<tr>
<td width="180" background="img/dd.jpg" align="center"><table width="80%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td style="font-size:12px; line-height:20px;color:6A6A6A; ">电 话:(86)573-8221761</td>
</tr>
<tr>
<td style="font-size:12px; line-height:20px;color:6A6A6A; ">传 真:(86)573-8413762</td>
</tr>
<tr>
<td style="font-size:12px; line-height:20px;color:6A6A6A; letter-spacing:0px;"><img src="img/email.jpg" width="153" height="13"></td>
</tr>
<tr>
<td style="font-size:12px; line-height:20px;color:6A6A6A; "> selfur@163.com</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td background="img/dd.jpg"><img src="img/ruyu.jpg" width="180" height="47"></td>
</tr>
<tr>
<Td background="img/dd.jpg" align="center" valign="middle"><table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="top"><!--#include file="ruyu.asp"--></td>
</tr>
</table> </Td>
</tr>
</table></td>
</tr>
<tr>
<td background="img/leftdi.jpg"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="180" valign="bottom">
</td>
</tr>
<tr>
<td><script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<table width="101" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="101" height="22">
<%
TimesDB="admin/#TimesShop.asp"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&TimesDB&"")
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查连接字串。"'注释,需要把这几个字翻译成英文。
Response.End
End If
set rec=server.createobject("adodb.recordset")
rec.open "select * from links order by linkorder",conn,1,1
if rec.eof then
response.write "没有东西!"
else
%><select name="menu1" onChange="MM_jumpMenu('parent',this,0)" class=style1>
<option value="">文字友情链结</option>
<option value="<%=rec("linkurl")%>"><%=trim(rec("linkname"))%></option>
<%
dim selclass
selclass=rec("linkurl")
rec.movenext
do while not rec.eof
%>
<option value="<%=rec("linkurl")%>"><%=trim(rec("linkname"))%></option>
<%
rec.movenext
loop
end if
rec.close
%>
</select></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
这样就可以了,可是我不想这么写,,