<% set Conn=Server.CreateObject ("Adodb.Connection") Conn.ConnectionString = Application("BC_ConnectionString") Conn.Open if request("method")="logout" then session.abandon response.redirect "mainnew.asp" response.end end if y = year(date) m = right("0" & month(date), 2) d = right("0" & day(date), 2) set tuijianrs=Server.CreateObject ("Adodb.Recordset") Sql="Select * from tuijian " tuijianrs.Open Sql,Conn,2,3 if request("method")="add" then if Request.Form("log")<>"" and request.form("password")<>"" and not instr(request.form("nickname"),"'")>0 then set clubrs=Server.CreateObject ("Adodb.Recordset") Sql="select * from club where Nickname='"&trim(Request.Form("nickname"))&"' and Password='"&trim(Request.Form("password"))&"'" clubrs.Open Sql,Conn if clubrs.EOF and clubrs.BOF then Response.Write "" response.write "" Response.End else session("ID")=clubrs("ID") session("cusname")=clubrs("Nickname") session("email")=clubrs("Email") session("author")=clubrs("author") if clubrs("thenday")<>y&m&d then Conn.execute ("update club set tuijian=2 where Id="&(session("ID"))) end if Conn.execute ("update club set thenday="&y&m&d&" where Id="&(session("ID"))) response.write "" end if clubrs.close end if end if %> 腾龙奇幻网
 
查询 　  

 

腾龙网站导航

 


一、 原创天地：展示会员作品的平台，并根据长短篇、类型、是否完成等进行分类搜索，给网友提供评论的展示地。
二、 作家天地：已经出版作品的作家和驻站作者的档案、藏书阁以及会客室等天地。
三、 会员服务：免费提供给注册会员发表、修改、整理新文章，撤稿，修改个人资料，自我介绍，相片头像上传，查看文章状态，查看网友对作者和文章的评价等等功能。
四、 出版书系：腾龙奇幻和幻想纪元两个书系展示、阅读、定购平台。
五、 网友交流：转贴精华文章的地方，要求转载需要征求原文作者的同意。
六、 腾龙论坛：作者们交流、提高写作技巧和心得的地方。

- 关于腾龙 - 网站导航 - 联系留言 - 业务联系 -

版权所有 2000-2003 腾龙奇幻网