add_wenzhang.asp

思翔会员制收费阅读（文章管理）系统20080323 收费按每点击一次收费一次

<!-- #include file="LHB_Check_Session.asp" -->
<!-- #include file="Config.asp"-->
<!-- #include file="../inc/md5.asp"-->
<!-- #include file="LHB_Copy.asp" -->
<script language="JavaScript" src="Money.js"></script>
<!-- #include file="LHB_head.asp"-->
<!-- #include file="LHB_DHT_01.asp"-->
<!-- #include file="LHB_DHT_02.asp"-->
<br>
<%
L_Reg=Request("LouHB_Reg")
L_BiaoTi=Request("LouHB_BiaoTi")
L_BeiZhu1=Request("LouHB_BeiZhu1")
L_BeiZhu2=Request("LouHB_BeiZhu2")
L_BeiZhu3=Request("LouHB_BeiZhu3")
L_JiaGe=Request("LouHB_JiaGe")
L_NeiRong=Request("LouHB_NeiRong")
ID=Request("LouHB_ID")
TianJ_XiuG=Request("LouHB_TianJ_XiuG")

Select Case L_Reg
Case "发　布"

if Len(L_BiaoTi) < 1 then L_CuoWu("请输入文章标题！")
if Len(L_JiaGe) < 1 then L_CuoWu("请输入文章价格！")
If Len(L_NeiRong) < 1 Then L_CuoWu("请录入文章内容！")
If Len(L_NeiRong) > 63999 Then L_CuoWu("文章内容超长！最多支持63999个字节") 

Sub L_CuoWu(LouHB_CuoWu)
if LouHB_CuoWu <> "" then Response.Write("<script>alert('" & LouHB_CuoWu & "');history.back();</script>")
Response.End
End Sub

Dim SuiJiShu
randomize timer
SuiJiShu=Int((8999)*Rnd +1000)
L_WenZhangID=Year(Date)&Month(Date)&Day(Date)&SuiJiShu
L_FaBuSJ=Now()
SaveW="insert into LHB_WenZhang(L_WenZhangID,L_BiaoTi,L_BeiZhu1,L_BeiZhu2,L_BeiZhu3,L_JiaGe,L_NeiRong,L_FaBuSJ) values('"&L_WenZhangID&"','"&L_BiaoTi&"','"&L_BeiZhu1&"','"&L_BeiZhu2&"','"&L_BeiZhu3&"','"&L_JiaGe&"','"&L_NeiRong&"','"&L_FaBuSJ&"')"
Louconn.Execute(SaveW)
set save=nothing
Call Copy()
response.write "<script language=JavaScript>" & chr(13) & "alert('恭喜，文章发布成功！');"&"window.location.href='Add_WenZhang.asp'"&" </script>"
Response.End

Case "修　改"
if Len(L_BiaoTi) < 1 then L_CuoWu("请输入文章标题！")
if Len(L_JiaGe) < 1 then L_CuoWu("请输入文章价格！")
If Len(L_NeiRong) < 1 Then L_CuoWu("请录入文章内容")
If Len(L_NeiRong) > 63999 Then L_CuoWu("文章内容超长！最多支持63999个字节") 

Set Lours=server.createobject("adodb.recordset")
up="Select * From LHB_WenZhang where id="&ID
Lours.Open up,Louconn,1,3
Lours("L_BiaoTi")=L_BiaoTi
Lours("L_BeiZhu1")=L_BeiZhu1
Lours("L_BeiZhu2")=L_BeiZhu2
Lours("L_BeiZhu3")=L_BeiZhu3
Lours("L_JiaGe")=L_JiaGe
Lours("L_NeiRong")=L_NeiRong
Lours.update
Lours.Close
Set Lours=Nothing
Call Copy()
response.write "<script language=JavaScript>" & chr(13) & "alert('恭喜，文章修改成功！');"&"window.location.href='index.asp'"&" </script>"
End Select

Select Case TianJ_XiuG
Case 2
Set Lours=server.createobject("adodb.recordset")
CX="Select * From LHB_WenZhang where id="&ID
Lours.Open CX,Louconn,1,1
If Not (Lours.EOF And Lours.BOF) Then
L_BiaoTi=Lours("L_BiaoTi")
L_BeiZhu1=Lours("L_BeiZhu1")
L_BeiZhu2=Lours("L_BeiZhu2")
L_BeiZhu3=Lours("L_BeiZhu3")
L_JiaGe=Lours("L_JiaGe")
L_NeiRong=Lours("L_NeiRong")
Lours.CLose
Set Lours=Nothing
LouConn.Close
Set LouConn=Nothing
End If
End Select
%>
<table width="51%"  border="0" cellspacing="0" cellpadding="0" align="center" class="table4">
<form name="form1" method="post" onSubmit="return test();" action="?LouHB_TianJ_XiuG=<%=TianJ_XiuG%>&LouHB_ID=<%=ID%>">
<tr align="center">
<td height="30" colspan="2" background="pic/bg.gif">
<%
If TianJ_XiuG=1 Then
response.write"添加文章"
ElseIF TianJ_XiuG=2 Then
response.write"修改文章"
End If
%></td>
</tr>
<tr>
<td width="22%" align="center">标　题</td>
<td width="78%"><input name="LouHB_BiaoTi" type="text" class="button1" size="50" value="<%=L_BiaoTi%>"></td>
</tr>

<tr>
<td align="center">&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr>
<td align="center">备　注１</td>
<td><input name="LouHB_BeiZhu1" type="text" class="button1" size="50" value='<%=L_BeiZhu1%>'></td>
</tr>
<tr>
<td align="center">&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr>
<td align="center">备　注２</td>
<td><input name="LouHB_BeiZhu2" type="text" class="button1" size="50" value='<%=L_BeiZhu2%>'></td>
</tr>
<tr>
<td align="center">&nbsp;</td>
<td>&nbsp;</td>
</tr>

<tr>
<td align="center">备　注３</td>
<td>
<input name="LouHB_BeiZhu3" type="text" class="button1" size="50" value="<%=L_BeiZhu3%>"></td>
</tr>
<tr>
<td align="center">&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr>
<td align="center">价　格</td>
<td><input name="LouHB_JiaGe" type="text" class="button1" size="20" value="<%=L_JiaGe%>"></td>
</tr>
<tr>
<td align="center">&nbsp;</td>
<td>&nbsp;</td>
</tr>
<tr>
<td align="center">文章内容</td>
<td><textarea name="LouHB_NeiRong" id="LouHB_NeiRong" style="display:none"><%=L_NeiRong%></textarea><iframe ID="eWebEditor1" src="../eWebEditor/ewebeditor.htm?id=LouHB_NeiRong&style=coolblue" frameborder="0" scrolling="no" width="666" HEIGHT="350"></iframe></td>
</tr>
<tr>
<td align="center">&nbsp;</td>
<td>&nbsp;</td>
</tr>


<tr align="center">
<td colspan="2">
<%
If TianJ_XiuG=2 Then
response.write"<input name=""LouHB_Reg"" type=""submit"" class=""button1"" value=""修　改"">"
Else
response.write"<input name=""LouHB_Reg"" type=""submit"" class=""button1"" value=""发　布"">"
End If
%></td>
</tr>
<tr>
<td colspan="2">&nbsp;</td>
</tr>
</form>
</table>
<br>
<%Call Copy()%>