news.asp
<%
set rs server.createobject("adodb.recordset")
sql="select * from neixun order by id desc"
rs.open sql ,conn,1,3
%>
新闻：
<% do while not rs.eof %>
<a href =neixun.asp?id=<% = rs("id") %>><% = trim(rs("title")) %>
<%
rs.movenext
loop
%>
neixun.asp
<%
id=request.querystring("id")
set rs=server.createobject("adodb.recordset")
sql="select * from neixun where id="&id
rs.open sql,conn,1,3
%>
新闻标题：<% = rs("title") %>
新闻内容：<% = rs("news" ) %>
自定义列
1.
<asp:templatecolumn headertext="新闻动态" sortexpression="sitename">
<itemtemplate>
<asp:hyperlink text='<%#container.dataitem("newtitle")%>' navigateurl='<%#"news.aspx?link_id="&container.dataitem(link_id)%>' target="_blank" runat="server">
</itemtemplate>
</asp:templatecolumn>
2.
news.aspx
dim strsql as string
strsql="select * from link where link_id="&request.querystring("link_id")
dim cmd as new oledbcommand ( strsql,conn)
conn.open
dim dr as oledbdatareader=cmd.executereader()
dr.read()
message.text&= "新闻标题："&dr.item("newtitle")
message.text&="<br>新闻内容:"&dr.item("news")
conn.close()
NET用户系统
dim conn as string
conn=configurationsettings.appsettings("strconn")
dim strsql as string
strsql="selct * from users where username='"&username.text&"' and mypassword = '"&password.text&"' "
dim cmd as newoledbcommand(strsql,conn)
conn.open( )
dim dr as oledbdatareader=cmd.executereader( )
if dr.read( )=ture then
conn.close( )
formsauthentication.redirectformloginpage(username.text,ture)
else
conn.close( )
respose.write(" 您的用户名或密码错误了")
end if
