?? add.asp
字號:
<%
if session("login")<>1 then
response.redirect("index.asp")
end if
%>
<!--#include file="adovbs.inc"-->
<!--#include file="conn.asp"-->
<form action="add.asp" method="post" name="form1" onsubmit="return submitcheck()">
<table width="90%" boder="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#cccccc">
<tr bgcolor="#f1f1f1">
<td colspan="2"><strong>增加新產品</strong></td>
</tr>
<tr bgcolor="#ffffff">
<td width="118">設計標題:</td>
<td width="363"><input name="filename" type="text" id="filename" size="19"></td>
</tr>
<tr bgcolor="#ffffff">
<td>相關網址:</td>
<td><input name="url" type="text" id="url" size="19"></td>
</tr>
<tr bgcolor="#ffffff">
<td>小圖地址:</td>
<td><input name="pic" type="text" id="pic" size="19"></td>
</tr>
<tr bgcolor="#ffffff">
<td>大圖或圖片連接地址:</td>
<td><input name="piclink" type="text" id="piclink" size="19"></td>
</tr>
<tr bgcolor="#ffffff">
<td>設計簡介:</td>
<td bgcolor="#ffffff">
<textarea name="content" cols="50" rows="4" id="content"></textarea>
</td>
</tr>
<tr bgcolor="#ffffff">
<td>設計類型:</td>
<td>
<%
set rs1=conn.execute("select*from designtype order by typeid")
%>
<%
do while not rs1.eof
%>
<input name="typeid" type="radio" value="<%=rs1("typeid")%>"><%=rs1("typename)%>
<%
rs1.movenext
loop
set rs1=nothing
conn.close
set conn=nothing
%>
</td>
</tr>
<tr bgcolor="#ffffff">
<td> </td>
<td><input name="submit" type="submit" value="提交"></td>
</tr>
</table>
</form>
<script language="javascript">
<!--
//
function submitcheck()
{if(form1.filename.value=="")
{window.alert("請填寫設計標題!");
form1.filename.focus();
return false;}
if(form1.content.value=="")
{window.alert("請填寫設計簡介!");
form1.content.focus();
return false;}
}
-->
</script>
<tr bgcolor="#ffffff">
<td>設計類型:</td>
<td>
<%
'選出設計類型到記錄中
set rs1=conn.execute("select*from designtype order by typeid")
%>
<%
do while not rs1.eof
%>
<input name="typeid" type="radio" value="<%=rs1("typeid")%>">
<%=rs1("typename")%><%
rs1.movenext
loop
set rs1=nothing
conn.close
set conn=nothing
%></td></tr><%
if request("submit")<>"" then '判斷是否提交
'執行向數據庫中添加程序
else
'顯示增加的表單頁面
end if
%><%
set rs=server.createobject("adodb.recordset")
sql="select*from design"
rs.open sql.con,1,3
rs.addnew
rs("filename")=server.htmlencode(request("filename"))
rs("typeid")=server.htmlencode(request("typeid"))
rs("url")=server.htmlencode(request("url"))
rs("pic")=server.htmlencode(request("pic"))
rs("piclink")=server.htmlencode(request("piclink"))
rs("content")=server.htmlencode(request("content"))
rs("time")=date()
rs.update
rs.close
set rs=nothing
response.write("<p><p align=center><br><br><br><font color=red size=2>"&request("filename")&"
-添加成功!</font><P><p>")
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -