初学ASP没技术含量
<!--
Create table NC_News(
ID int Identity(1,1) not null Primary key,
Title varchar(128) not null,
Content varchar(4000) null,
DisplayNum int null default(0),
BType varchar(32) null,
AddTime Datetime null default(Now())
)
-->
<%
Response.Buffer=true
Dim conn
Dim sql
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOleDb.1;Data Source=(local);User ID=sa;Password=;Initial Catalog=Pubs"
If Request("act")="Save" then
sql="Insert into NC_News(Title,BType,Content,DisplayNum)Values('"&Request("txtTitle")&"','"&Request("sltBType")&"','"&taContents&"',1)"
conn.Execute(sql)
Response.write("<script>alert('添加成功！')</a>")
Response.Redirect("NewList.asp")
Elseif Request("act")="Del" then
sql="Delete NC_News Where ID="&Request("ID")
conn.Execute(sql)
Response.write("<script>alert('删除成功！')</a>")
Response.Redirect("NewList.asp")
Elseif Request("act")="Edit" then
sql="Select * From NC_News Where ID="&Request("ID")
Dim Rs1
set Rs1=conn.excute(sql)
if not Rs1.eof then
Title=Rs1("Title")
Content=Rs1("Content")
End
End
Dim rs
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="Select ID,Title,Content,DisplayNum,AddTime,BType From NC_News Order By AddTime Desc,DisplayNum Desc"
rs.open sql ,conn,1,1
%>
<head>
<title></title>
<style type="text/css">
.style1 {
width: 100%;
}
#Text1
{
width: 251px;
}
#Select1
{
width: 151px;
}
.style2
{
height: 20px;
}
.style3
{
text-align: center;
}
#TextArea1
{
width: 254px;
height: 150px;
}
</style>
<script language="javascript" type="text/javascript">
// <![CDATA[
function Submit1_onclick() {
if (document.form1.b.txtTitle == '') {
alert("填写标题！")
return false;
}
else {
return true;
}
}
function IsDel() {
if (confirm("你确定要删除改数据吗？")) {
return true;
}
else {
return false;
}
}
// ]]>
</script>
</head>
<body>
<form method="post" action="NewLists.asp?act=Save" id="form1" name="form1">
<table class="style1">
<tr>
<td>
类别</td>
<td>
<select id="Select1" name="sltBType">
<option>客户体验</option>
</select></td>
</tr>
<tr>
<td>
标题</td>
<td>
<input id="Text1" type="text" Name="txtTitle"/><%=Title %>></td>
</tr>
<tr>
<td>
内容</td>
<td>
<textarea id="TextArea1" name="taContents"><%=Content %></textarea></td>
</tr>
<tr>
<td>
</td>
<td>
<input id="Submit1" type="submit" value="submit" onclick="return Submit1_onclick()" /></td>
</tr>
<tr>
<td class="style2">
</td>
<td class="style2">
</td>
</tr>
<tr>
<td>
</td>
<td>
</td>
</tr>
<tr>
<td>
</td>
<td>
</td>
</tr>
<tr>
<td colspan="2">
<table class="style1">
<tr>
<td class="style3">
ID</td>
<td class="style3">
类别</td>
<td class="style3">
标题</td>
<td class="style3">
浏览次数</td>
<td class="style3">
添加时间</td>
<td class="style3" colspan="3">
操作</td>
</tr>
<%For i=0 To rs.RecordCount-1 %>
<tr>
<td>
<%=rs("ID") %></td>
<td>
<%=rs("BType") %></td>
<td>
<%=rs("Title") %></td>
<td>
<%=rs("DisplayNum") %></td>
<td>
<%=rs("AddTime") %></td>
<td class="style3">
<a href="NewLists.asp?Act="Edit"&ID=<%=rs("ID") %>">修改</a></td>
<td class="style3">
<a href="NewLists.asp?Act="Del"&ID=<%=rs("ID") %>" onclick="return IsDel()">删除</a></td>
<td class="style3">
<a href="MakeHtml.asp?ID=<%=rs("ID") %>" >生成HTML</a></td>
</tr>
<%
rs.MoveNext
Next
%>
</table>
</td>
</tr>
</table>
</form>
</body>
</html>
<%
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
%>
